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Introduction 


Welcome to the world of the Oric-1 microcomputer! If you’re reading this 
we assume you have bought (or got your hands on) an Oric, and this 
handbook intends to show you how to use it to its full potential. High- 
resolution graphics, three channel sound, colour and many other features 
make the Oric one of the most popular micros around. 

This handbook covers all you need to know to get the most from the Oric, 
learn the built-in BASIC language, get started on programming in BASIC, and 
discover the fascination of computing. If you’re starting from scratch, 
please remember when the going gets a little tough that it’s a complicated 
and powerful machine you are learning to use, and you can’t expect to have 
it all worked out in a few hours. 

Exercise some patience and application, work through the examples we 
give in the text, and you’ll soon be hacking a keyboard with the best of 
them! We introduce the jargon as we come to it, but you should also realise 
that computing is a technical subject, and familiarity with the technical 
terms is a necessary part of your initiation into computing. Whilst bits and 
bytes and BASIC, chips and Ks and all the rest, are confusing when first 
encountered, they are all essential elements in discussing our subject. 

The Oric comes in two memory sizes, the 48K and the 16K (we don’t 
define what the ‘K’ means just yet), and there have been two versions of the 
internal operating system that controls your Oric, V1.0 and V1.1. The 
differences between the two are noted in the text as they occur. Some 
problems in the first version (which as you might have guessed is V1.0) have 
been solved, but the vast majority of instructions work in the exactly the 
same way on both versions. 

This handbook first covers setting up your Oric, and describes the 
facilities built into it, and some of the expansion possibilities. The first 
elements of the BASIC language are defined, and the elements of pro- 
gramming are explained as you are introduced to more of the BASIC intruc- 
tions. After covering the storage and retrieval of programs on cassette tape, 
the complex and powerful graphics and sound facilities of the Oric are 
covered in separate sections. The full set of the Oric’s BASIC instructions and 
commands is then covered in an alphabetic glossary, with their formats and 
examples of their use, for easy reference. Chapters on machine code 
programming and input/output interfacing follow, and the appendices 
provide additional technical and reference material not suitable for the 
main text. 

We’re sure you’ll find that the world your Oric opens up will provide you 
with an inexhaustible source of fun, fascination and satisfaction. Let’s take 
our first steps towards opening up this world! 
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1 Getting the 
Oric together 


Let’s first run through what comes in the Oric box of goodies. You get the 
Oric itself, the power supply, a cassette lead, and a TV lead. Find a 
convenient work surface big enough for the Oric, your TV, and a cassette 
recorder if you’ve got one, and you can proceed to set your system up. The 
components of your microcomputer system should be connected up as 
shown in the diagram. 

The Oric power supply should be plugged into a convenient socket, close 
enough so that there’s plenty of slack in the cable, the plug of which is fitted 
into the Oric’s power socket (at the left rear of the Oric as you face the 
keyboard). This supplies the 9V d.c. (direct current) power which the Oric 
needs. There’s no on/off switch on the Oric, so it’s now powered up, and 
two elements of our system are working. (The keyboard, which is an input 
device in the jargon, since we use it to input information and commands, 
and the processor board, which as you might imagine does all the process- 
ing of information and handles the input and output of data, are of course all 
built into one unit in the Oric.) 

We need an output device to know what’s happening though, and this is 
where your TV comes in. This functions as an on-line visual display unit 
(VDU) output device, but we’ll just call it the TV! Conneg¢t the TV lead 
between the Oric (using the rightmost socket) and the aerial socket of the 
TV. If there’s a choice, use the UHF socket. Switch on the TV, and tune it 
to Channel 36. When you get the correct position, the screen will be 
displaying the message: 


ORIC EXTENDED BASIC V1.0 (or V1.1) 
© 1983 TANGERINE 


XXxxx BYTES FREE 


READY 
a 


This notice comes up on switching on the Oric. If you now take out the 
power supply from the Oric and re-insert it, the screen goes blank, with 
random white blocks on it for a few seconds (while the Oric checks through 
its circuits), and then clears to display the message again. The version 
number will be either 1.1 or 1.0, and we will refer to this throughout this 


4 Getting the Oric together 


handbook whenever there are differences between the two versions, so 
you’d better note which version your machine has! 

Adjust the brightness and contrast controls to get a sharp picture. The 
Oric itself has two controls that can be used to fine-tune the picture. The 
first affects the colour signal, and we will deal with it here for completeness. 

When you start to experiment with the colour capabilities should you 
find the colours not distinct on your TV screen, and especially a lack of 
distinction between yellow and white, insert a fine screwdriver into the 
brass screwhead inside the round hole on the underside of the machine. 
Leave the Oric switched on with a multi-coloured display on screen, and 
turn the screw a quarter turn or so in both directions, watching the screen as 
you go, until you have achieved the clearest colour separation. The other 
control is the lozenge-shaped hole which fine-tunes the picture on the 
screen. Some earlier Orics don’t have this access, and the cover must be 
removed to access the control. The control is set for a standard test TV at 
the factory, and if your TV differs you can get a distorted screen, with wavy 
edges or a warped display. If this occurs on the V1.1 then insert a 
screwdriver into the screwhead inside the hole, and adjust gently until the 
picture firms up to a precise image. 

Possessors of V1.0’s have a problem, since removal oi the back of the 
Oric invalidates the guarantee. If the guarantee has expired, you might 
decide to go ahead and open the case, otherwise you will have to return your 
machine to Oric with an explanation of the problem. The control inside the 
case is to be found in almost the same position as the reset switch, on the 
opposite short side of the base. There is a slotted potentiometer in silver 
metal and circular form here, which will fit a small screwdriver, and this 
again is to be adjusted until the picture firms up. 

Under the copyright notice the Oric displays the number of bytes of free 
memory. The Oric comes with two different memory sizes of 48K and 16K 
of memory. A K is an abbreviation of ‘kilobyte’, meaning 1024 bytes (you'll 
find out why 1024 and not 1000 later), and a byte is a storage location in the 
computer memory. Out of the total memories of 49152 (48K) and 16384 
(16K) bytes initially available, however, the Oric takes some on switching 
on for use by the system, to store information about the TV screen display, 
and the current state of affairs, so the number of bytes of free memory is less. 

The READY on the screen indicates the Oric is waiting for instructions. 
The flashing square is the cursor. This is an indicator that shows the current 
position at which characters will be printed on the screen. 

There are other sockets on the rear of the Oric (see Appendix 11). The 
R.G.B. (red, green, blue) outlet is for the connection of a colour monitor, 
rather than a TV. Monitors are high-quality VDUs, which provide a firmer 
and sharper picture quality than a TV, but are hence rather more expensive, 
and are generally dedicated to a computer system, but combined monitor/ 
TV systems are available. 
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The next socket is for input and output to a tape recorder, and needs 
rather less expenditure to be put to use, especially since the cheaper cassette 
recorders work at least as well as more expensive ones. There are cassette 
recorders designed for use with computer systems, but most models will 
work well. The Oric can use the cassette recorder as an off-line storage 
device, which means that programs can be stored as an encoded sound 
signal on tape, and then played back in again. If you’ve just got your Oric 
you will have got the demonstration programs supplied with the machine, 
and should refer to Chapter 6 on cassette handling if you can’t wait to get 
this or other commercial software loaded into your Oric. 

To use a cassette, the 3-pin DIN plugs on the cassette leads must be 
inserted into the Oric socket and that of the tape recorder. Most tape 
recorders will have a DIN socket, but if yours doesn’t, alternative cassette 
leads are available which provide a 3-pin DIN plug for the Oric end, and two 
3mm jack plugs at the other for the tape recorder EAR and MIC sockets. The 
Oric uses the cassette sound port to SAVE and LOAD programs, but the 
outputs from the sound and music facilities of the Oric are also sent as 
signals to this port, so that you can use the cassette lead to connect up to 
your hi-fi system if you wish to amplify or record the music you produce on 
your Oric. See Appendix 11 for the connections. 

Next to the cassette port is the printer port, with its 20-pin socket. The 
Oric can be used with any printer with a Centronics parallel interface, 
providing a suitable cable is available. The Oric MCP-40 printer (which was 
used for all the printouts in this handbook) gives not only printed versions 
of programs, or hard-copy of program output, but can also produce 
four-colour graphics of high quality. This will be available from wherever 
you bought your Oric, and because of its versatility should be considered if 
you are going to invest in a printer. The capacity to produce hard copy 
output, and especially printed program listings, is extremely useful. Word 
processing and similar tasks need a full-size printer, but the MCP-40 is 
quite adequate for the hobbyist. Appendix 7 deals with the use of this 
printer, and Chapter 11 with use of the printer port for input/output. 

The adjacent larger socket is the expansion port, for connecting addi- 
tional pieces of equipment which can use this I/O (input/output) port in 
various ways. Such items as a joystick interface, a modem (telephone 
communications system) and the Oric Micro Floppy Disc Drive can be 
connected. Appendix 10 and Chapter 11 give details of the use of this port 
for the electronics enthusiast. 

The alternative storage medium that is available for the Oric is the Oric 
Micro Floppy Disc Drive. Disc drives provide a fast, sophisticated way of 
storing and retrieving data from a floppy disc, but do require a considerable 
investment. Most of the facilities provided by a disc drive exist or can be 
simulated using a cassette recorder, but the disc system wins hands down on 
speed, flexibility and convenience. 
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If you find yourself spending a lot of time with your Oric and getting 
caught by the programming bug, you will find yourself contemplating the 
purchase of a drive and/or a printer (the sequence depends on what you 
want to do with the system), and you’ll come to appreciate what amazing 
value the Oric is, comparing it’s capacity to interface with these peripherals 
and its own built-in capabilities with the cost of ‘add-ons’. Unfortunately 
that’s the way the electro-mechanical cookie crumbles. For the moment, 
however, let’s get on with exploring what we can do with the Oric’s own 
facilities. 


2 The Language 
Lesson 


You have now got your Oric up and running, but apart from the message on 
the screen it’s not doing much, is it? Well, computers are dumb beasts, as 
well as being very literal-minded, and your Oric is waiting to be given 
something to do. We need to talk in some language understood by both the 
Oric and ourselves, so that we can use the keyboard to input some 
instructions. In this chapter we’re going to introduce you to the use of your 
Oric, and show you how to get it to do what you want. This means 
explaining a lot of new concepts and actions, so it’s a little daunting if you 
are new to computing. Don’t skip any of it, though, as it’s all a necessary 
introduction to bigger and better things! Try all the things suggested in the 
text, as you’ll only learn from experience. Experiment as much as you like, 
since you can’t hurt the Oric with anything you enter at the keyboard. 

The operations of the microchips in your Oric take place in a low-level 
language known as machine code. We have a section on machine code later 
in this handbook for those who wish to experiment with this language, but 
it is a difficult topic, and the Oric comes ready fitted with the BAsIc lan- 
guage, which is much easier to get to grips with (the name is an acronym 
standing for Beginners All-Purpose Symbolic Instruction Code). 

BASIC is a high-level language, meaning we don’t have to concern 
ourselves with the mechanics of the complex operations inside the com- 
puter, but we can use commands and instructions to describe the operations 
we wish to occur. The Oric then interprets these instructions and does the 
job asked of it without much fuss, and very quickly, as long as we put in the 
instructions in the correct format. 

Let’s take a look at some commands first. Commands are keyed in 
through the keyboard, and will appear on the screen as you type the letters 
and symbols. The keyboard has all the standard letters and numbers, plus 
some special keys and BASIC symbols. The large unmarked key is the SPACE 
bar, flanked by the cursor control keys (with the arrows). The SHIFT keys 
allow you to access the upper symbol printed above the key, where this 
occurs. DEL stands for delete, as you might suspect. Try pressing any of the 
letter/symbol keys at random, with and without SHIFT. Whatever you input 
from the keyboard cannot hurt the Oric, although it is possible to find 
yourself facing a machine that has ‘hung up’ and won’t respond to keys 
being pressed. 
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Should this occur, you have two options. The first is a bit drastic, 
although it won’t do any harm, and simply involves pulling the plug (the 
d.c. supply into the back of the Oric), waiting a few seconds, and putting it 
back in. You’ll see the power-up message return to the screen when it 
clears. However, there’s a useful device on the underside of the Oric, inside 
the small square hole on the bottom of the casing. It’s well protected 
because you don’t want to press it accidentally, but the button inside is the 
RESET switch. This has the distinct advantage, as you’ll come to appreciate 
later, that it resets the machine without wiping out the program that you’ve 
spent hours keying in, and can save you hours of work. 

Note that the keys auto-repeat — if you hold a key down after a short delay 
the character will be printed repeatedly for as long as you continue to press 
the key. If you input a random set of characters and then press the RETURN 
key (which activates these commands or letters which you’ve been input- 
ting), you will get an error message. This says: 


?>SYNTAX ERROR 


A syntax error message means the Oric doesn’t understand what has been 
entered, because it doesn’t make sense according to the rules by which 
commands and instructions are interpreted. 

If you enter (say by holding down one key) more than 75 characters a bell 
sound is given when you key in the 76th (the last character on the second 
line). The bell sounds again for the 77th, 78th and 79th characters. If you 
enter an 80th character, it is not printed on the screen, but a ‘/’ is printed 
instead, and the cursor moves to the start of the next line. The Oric will only 
accept lines of less than 80 characters, and if this is exceeded it prints ‘/’ and 
‘forgets’ the line. The bell sound is the warning of this possibility. 

Let’s run through some direct commands. Press RETURN. If you’ve got 
characters in there, you’ll get SYNTAX ERROR, then READY on the next line. 
Key in: 


PRINT “MESSAGE” 


then press RETURN. Make sure you use the double quotes, not the apostro- 
phe (which is the unshifted character on the same key). The Oric will PRINT 
the characters between the quotation marks on the next clear line of the 
screen display, so that MESSAGE appears on the screen, and then gives you 
the READY prompt, telling you that it’s waiting to be asked to do something 
else. Type in: 


PRINT “4+5” (then press RETURN) 
The Oric puts 4+5 on screen. Now key in 
PRINT 4+5 (plus RETURN) 


This time the Oric gives us 90n the screen. We’ll assume you’ve caught on 
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to the use of RETURN to activate commands by now, so we won’t mention it 
again. Because we missed out the quotes, our command was interpreted by 
the Oric as an instruction to PRINT the result of adding 4 and 5. Anything 
between quotes is known as a string literal, or just a string. 

In a PRINT statement, exactly what’s between the quotes is PRINTed out. 
Anything that’s not between quotes is interpreted as a set of instructions. 
We can combine the two, and enter: 


PRINT “4*3=”; 4*3 


The asterisk (*) is used instead of the multiplication sign, to avoid 
confusion with the small x. The expression 4*4 is evaluated by the Oric, 
since it is not enclosed in quotes, whilst the string between quotes is printed 
just as it appears (less the quotes). This gives us a printout of: 


4*3=12 


You should note whether your Oric gives you a space between the = sign 
and 1. The V1.1 Oric gives positive numbers both a leading space (where 
the minus sign goes for negative numbers), and a following space auto- 
matically when the number is PRINTed on the screen, whereas the V1.0 Oric 
gives a number on the screen only a following space. Both versions thus 
ensure the separation of numbers, but the difference has some minor 
consequences we’ll discover later when we come to format output to the 
screen. 

We can deduce from the above that BASIC includes some standard English 
words, and arithmetic symbols (called operators), such as ‘+’. The full set 
of these arithmetic operators is: 


+ Addition 
ae Subtraction 
* Multiplication 
/ Division 
4) Exponentiation (raising to a power) 


The use of ‘*’ for the multiplication sign and ‘/’ for division is standard in 
computing. Since your best way of understanding how the Oric deals with 
arithmetic is to key in numeric calculations using these operators, here’s an 
Oric function that will save you some time. The question mark, ‘?’, can be 
used as an abbreviation for PRINT. We won’t use it in the text, since it can be 
confusing, but wherever we have, e.g., PRINT “HI’, you can enter ?“HI”, and 
the result will be the same. Try this with the example below. 

Right, let’s try some arithmetic. PRINT 6/2 (or ? 6/2) will give you 3, PRINT 
212 will give you 4, and can be read‘as ‘two raised to the power two’, or 27 
(two squared). If you try to PRINT complex expressions such as 2/3+4 or 
4*3+5/3 you may find that the results are not always what you think they’re 
going to be. This is because there are a set of rules governing the way an 
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expression is worked out by the Oric. To give an unambiguous meaning to a 
complex expression the Oric assigns a different priority to each type of 
operator. Highest priority is anything enclosed in brackets, then exponent- 
iation, followed by * and / (equal priority), and lastly + and — (equal). So if 
we try PRINT 2+3*4 (do!), then 3*4 is evaluated first, since * has higher 
priority than +. Having worked out that 3*4 is 12, the Oric then adds 2, and 
prints up 14. We’ll get the same answer if we use 4*3+2, but if what we 
want the answer to is really ‘the sum of 3 and 2, multiplied by 4’ we have to 
use brackets. If we ask for the result of (3+2)*4, 3+2 will be worked out 
first, and the result multiplied by 4. The Oric, when working out an 
expression, first performs the operations with the highest priority, then 
those with the next highest, and so on. Operations with the same priority 
are worked out left to right, so that 4—2+4+5 will give you 11, while 
4—(2+4+5) gives —7, as the expression in the brackets is worked out first, 
and the result (11, which presumably you can work out without the Oric to 
help!) is then subtracted from 4. If we enter 4*6/7 it will evaluate as (4*6), 
calculated first to give 24, divided by 7, with the result of 3.42857143. 

The Oric gives numbers to an accuracy of 9 significant figures. It also has 
a trailing space after the number and, if a V1.1, a leading space. This 
ensures that numbers are printed separately on the screen. Try keying in 
PRINT “1”; “2”. This PRINTS the two strings “1” and “2”? with the second 
directly following the other (which is the function of the semi-colon in a 
PRINT instruction). Now try PRINT 1;2. Again the semi-colon means that the 
second item is to be printed directly after the first, but what you get on 
screen with a V1.1 is: 


(space) 1(space) (space)2(space) 
The V1.0 gives: 
1(space)2(space) 


Let’s just deal with a couple of other ideas, and we’ll be ready to have a look 
at a BASIC program. If we enter PRINT “ABC” the Oric will give us ABC on 
screen, because we had quotes round it, meaning ‘print the stuff between 
the quotes’. If we key in PRINT ABC, however, we will get 0. What’s this? 
Well, because it was asked to PRINT something not between quotes, the Oric 
attempted to evaluate it as a number. A named variable can be used to store 
numbers, so the Oric tried to find a variable called ABC, failed, and gave usa 
zero. 

You can think of a variable as a storage box with a name. The contents of 
the box can be altered (hence variable). The command for giving (assign- 
ing) a variable a value is LET. Key in LET ABC=93 followed by RETURN, then 
try PRINT ABC again. This time the Oric looks for the use of ABC as a variable 
name, and finds in the storage location named ABC the value 93, so it prints 
it. We can also proceed to reassign the value given to our variable ABC. 
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Try entering the commands below, printing out the value of ABC after 
each operation, using PRINT ABC or ABC. We’ve used a space between PRINT 
(or 2) and ABC, but this is not necessary. The Oric will accept PRINTABC or 
2ABC just as happily. The same is true of most instructions, so that 
LETABC=100 will work. However, running things together in this way can 
make it difficult to read a printed listing of the instructions. Now try: 


LET ABC= 100 

LET ABC=13+10 
LET ABC=ABC+ 10 
LET ABC=ABC*2 
LET ABC=ABC/2.3 


As you can see, we can not only give a new value to ABC, but can also use the 
old value of ABC in the calculation of the new value. You can think of the 
instruction LET ABC=ABC*2 being interpreted as ‘take the value stored in the 
location called ABC, multiply it by two, then put the result back into ABC’. 
This will also explain why if we try the command LET 100=ABC we will get the 
2>SYNTAX ERROR message again, because the Oric interprets the first charac- 
ters after the LET as a variable name. Valid variable names must start with a 
capital letter, although they may be followed by any combination of capital 
letters and digits. The other important point about variable names is that, 
although they may be of any length (so that we can use meaningful variable 
names like HOUSEPRICE or PERCENT) only the first two letters are significant. 
Try PRINTing a variable ABACUS and you will find it the same as ABC, because 
to the Oric they are both stored under the name AB. Variable names also 
cannot contain any reserved words. 

A reserved word is a set of letters that the Oric recognizes as a legal BASIC 
word. You have seen PRINT and LET, and will be introduced to others as we 
work through Oric BAsIc. The full set of reserved words is given in Chapter 
9, Oric BASIC Keywords, and these are the only words the Oric understands. 
It checks anything we key in, character by character, against a table of BASIC 
words, and transfers any such word into a different form for internal 
storage, whenever we press RETURN. Just to confuse the issue, LET is 
optional, and can be omitted, and the Oric will still know what you mean. 
This is because, as we stated before, anything outside quotes is assumed to 
be either a variable or a bit of Oric BASIC. ABC=100 1s the same as LET ABC=100. 
Try the examples above without the use of LET. 

We now need to deal with editing before we move on to programming. 
Up to now we’ve assumed that you either haven’t made mistakes in keying 
anything in, noticed in time and were sharp enough to use the DELete key 
and then re-enter the bit you got wrong, or else pressed RETURN, got the 
?>SYNTAX ERROR message, and tried again. 

All the above options would have helped you to understand the impor- 
tance of keying things in correctly. You can’t afford to be sloppy with a 
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computer. However, the Oric has editing facilities which minimise the 
effort required to correct mistakes or change a small portion of a line. Well, 
we now come to the mysterious arrow (cursor control) keys and the CTRL 
key. You will have noticed that the Oric PRINTs on screen lines top to 
bottom, and that when it needs a new line and the screen is full it scrolls, 
shifting all lines upwards and losing the current top line in the process. To 
get rid of the current contents of the screen, enter CLS (RETURN). This 
command CLears the Screen, placing the cursor in the top left of the screen. 
The same effect can be produced by using the CTRL key. This key is used in 
combination with certain other keys to produce some useful effects. 

If you hold down the CTRL key and then press the ‘L’ key the screen will be 
cleared, just as if you had used CLS and then RETURN. The control key 
method saves some keystrokes! The other common control functions in 
addition to CTRL-L are: 


CTRL-A Copy character at current cursor position 
CTRL-F Keyclick on/off 

CTRL-Q Cursor on/off 

CTRL-X Current line abort 

CTRL-T Upper (CAPS) and lower case toggle 


CTRL-A and CTRL-X we will deal with below. CTRL-F turns off the sound the 
keyboard makes when a key is pressed, and CTRL-Q makes the cursor 
disappear, when first used (since keyclick and cursor are on when the Oric 
is first switched on), and then turn keyclick and cursor back on. Such a 
switch is called a toggle. Up to now we’ve been using upper case letters 
only, and you should have noticed the caPs sign in the top right of the Oric 
screen, on what is known as the status line. CTRL-T is the toggle to switch 
between upper and lower case letters. Try CTRL-T and you’ll find that the 
CAPS sign disappears, and you get lower case letters. The SHIFT keys will 
give you capitals, whereas in CAPS mode they have no effect. The reason why 
CAPS is normally set ON is that BASIC COMMANDS AND INSTRUC- 
TIONS HAVE TO BE IN CAPITALS. 

OK, we now can go on to examine a BASIC program. Let’s give you a 
program, and then examine what it does. We’ll deal with editing directly 
after giving the program listing below, since you are likely to make some 
errors. Like all the listings in this handbook, this one is reproduced directly 
from the Oric on the Oric printer. Whenever you key anything in, be sure to 
pay attention to punctuation, since a semi-colon and a colon, or an 
apostrophe and a quote sign, are easy to confuse, and produce radically 
different effects. Our first program is a calculation of VAT, which isa tax of 
15% added on to the sale price of goods. In this case an item is to be sold at 
£21, and we need to write a program that tells the Oric the sale price (which 
is the input data in computerspeak), then get the Oric to calculate 15% of 
the selling price (which is 15/100 or 0.15), and then add this amount to the 
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selling price. This total gives us the final price to be paid. This is the 
processing portion of our program, and now we need to define our output, 
which in this case means to PRINT the total on the screen. Breaking the task 
down into small steps to be performed in sequence gives us a set of 
operations that can be easily translated into BAsIc. We then write a program 
like this. 


1@ REM XVAT Calculationx 
2@ LET SELL=21 

30 LET VAT=@. 15xSELL 

4@ LET TOTAL=SELL+VAT 

5@ PRINT "TOTAL=";TOTAL 


If you look at this, you can see that the program consists of a set of program 
lines, numbered from 10 to 50 in steps of ten, and in sequence. Use CTRL-L 
to clear the screen, or enter CLS followed by RETURN, and then key in the 
program in exactly as listed, pressing RETURN at the end of each line. Unlike 
its use with direct commands, such as we were using previously, here 
RETURN at the end of a program line tells the Oric to store the line in 
memory, the cursor returns to the left of the screen to indicate that it’s ready 
for another program line or command. 

If you make an error as you type in a line, you can use CTRL-X to abort the 
line. This PRINTs a backslash character and returns the cursor to the left of 
the screen, having instructed the Oric to forget the line. Enter the line 
again, and repeat the process until you get it right. Remember you could 
use the DEL key to DELete characters, and then type in the correct ones, but 
we’re introducing you to CTRL-X, so use it! 

Line 10 has some lower case letters in it. After you’ve typed 10 REM *VAT C 
you will need to use CTRL-T to switch to lower case, and CAPs will disappear 
from the top status line of the screen. Enter the lower case letters, and then 
use CTRL-T again to switch back to CAPS mode. 

The REM statement means that whatever follows in that line is just a 
REMark or REMinder to anybody looking at the program listing, and is to be 
ignored by the Oric. (It still stores it in memory, though.) The asterisks are 
just characters put in to make the REMark stand out, and aren’t multipli- 
cation signs in this case. 

When you’ve keyed in all the lines, if you didn’t get it right every time, 
you will have a screen that has the correct program lines split by the ones 
you’ve aborted, looking something like this (although we hope you did 
rather better!): 
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1Q@ REM XVAT Calculationx 
2@ LET SELL-N 

2@ LET SELL=20 

38 LET VAT=@.158N 

3@ LET VAT=@. 15XSELL 

4@ LET TOTAL=SELL+VAT 

5@ PRINT TOTAL=’TX 

9@ PRINT "TOTAL=";TOTAL 


To get a listing of the program lines accepted by the Oric, type in LIST as a 
command, and the program will appear on screen as it has been stored in 
memory, and this should be the same as the first listing above. Now key in 
line 20 again, with a deliberate mistake. 


2QOLET SEL=20 


You now have two line 20s on screen. Use CTRL-L and then enter LIST again. 
The new line 20 has replaced the old. Notice that the Oric has automatically 
inserted a space between the 20 and LET, although we didn’t have one. If 
we'd typed: 


20 LET SEL=20 


we would still only have got one space when we LIsTed the program. Well, 
now we’ve got an incorrect line, and want to correct it without retyping the 
whole line. There is a command EDIT, which needs to be followed by the 
line number we want to correct. Enter EDIT 20, and when you press RETURN 
you'll get a blank line beneath the ‘Ready’ prompt displayed after the 
program listing, then line 20, with the cursor on the next line on the V1.0. 
In this case press the up-arrow key and the cursor moves up a line until it’s 
level with line 20 (V1.1 owners will have the cursor at the beginning of line 
20). Hold down the CTRL key, and press A. The cursor moves right, and as it 
gets to each character the character is merged with the cursor. CTRL-A copies 
the character at the current cursor position into a temporary memory store 
(called an input buffer). Move the cursor along until it’s on the equals sign. 
We have now ‘copied’ 20 LET SEL into the buffer, but not the equals sign. We 
need to insert an L, and we do this by moving the cursor to an empty portion 
of the screen. Press the up-arrow key to get the cursor above the line. Press 
L and it appears on screen. This is now in the buffer, following the first L. 
We need to follow this with =, so we use the left-arrow key and move the 
cursor back to cover the L we’ve just keyed in. Use the down-arrow key to 
get the cursor over the =, and then use CTRL-A again to copy everything to 
the end of the line. Press RETURN. You’ll then have: 
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Ready 
EDIT20 


L 
28 LET SEL=20 


with the cursor below it. Use LIST again, and you'll see that the contents of 
the buffer (including the inserted L) have become the new line 20. You can 
copy anything that is on the screen, using the arrow keys to position the 
cursor, and then CTRL-A to copy, without using EDIT, but EDIT gives you a 
blank line above and below to type additional characters. If you are 
inserting something, you must get back to where you were before you 
started the insert. Try moving the cursor to the L of the LIST command 
you’ ve just typed in, copy LIST with CTRL-A, then hit RETURN. The program 
will be LisTed again. This copy facility is very useful, as it can be used to 
repeat similar portions of lines. Move the cursor up level with line 40, then 
copy the 4. If you now press 3, the 0 of 40 at the cursor position will change 
to 3. Copy LET, then use the left-arrow key to move along to the s of SELL. 
Copy SELL, and when you’ve got the cursor over the + sign, press =. Again, 
the + will change to =. Copy VAT, then press RETURN. Now use LIST, and 
you'll see that there’s a new line in the listing, so our program looks like 
this: 


1@ REM XVAT Calculationx 
2@ LET SELL=20 

3@ LET VAT=@. 15XSELL 

4@ LET TOTAL=SELL+VAT 

43 LET SELL=VAT 

5@ PRINT "TOTAL=";TOTAL 


You can see how easy it is to make alterations and correct lines, and you’ll 
now see why we started our program with the line numbers going up in 
tens. The line number may be any integer (whole number) up to 63999, so 
we could have numbered our program as 1, 2,3. . . or 9000, 9050, 9051 

. . or any sequence. If we don’t leave gaps in the sequence, however, we 
won’t be able to insert additional lines, which are often required, so we used 
steps of ten. You can also see that the Oric automatically inserts a line in the 
correct sequence, so it doesn’t matter in what order we enter lines. We don’t 
want line 43, and any line is easily deleted by just entering the line number 
and pressing RETURN. Do this, then LIST the program again, and you'll see 
that line 43 has been wiped out of the listing. 

That’s editing dealt with, so we'd better get back to our program. If we 
look it over, we can see that it should do its job. The variable SELL is set to 
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the value of £21, the VAT amount is correctly calculated as 0.15 of SELL, line 
4@ adds SELL and the calculated VAT, and line 50 should PRINT the string 
“TOTAL=” followed by the calculated TOTAL. We have our program, and 
we activate it by typing RUN (as a command) and pressing RETURN. The 
Oric then starts at the first line number and processes each line according to 
the sequence of increasing line numbers. Try it. 

Well, that wasn’t too successful. Unless you have introduced some errors 
of your own into the listing (in which case go back to the listing on screen, 
using LIST, check until you’ve found the error, and then re-enter the correct 
program line), you will have got a SYNTAX ERROR IN 40 error message. Note 
that error messages produced when a program is RUN give the line number 
at which the Oric stopped the execution of the program because it found a 
mistake. This doesn’t always mean that the error is in the line whose 
number is given, since an earlier error may not have stopped the program 
(remember the computer can’t know what we’re trying to do, it just checks 
to see that the lines make sense, even if that sense is not what we intended), 
but could have produced the later error. 

In this case, when we look at line 40 we find no obvious errors. LET is spelt 
correctly, the variable names all start with a letter and the arithmetic 
expression makes sense (we haven’t tried to say LET SELL+VAT=TOTAL, for 
instance, which is meaningless to the Oric — the variable which is to be set or 
redefined must precede the = sign). So what’s wrong? Well, we’ve just 
encountered one of the restrictions on variable names mentioned above, to 
whit, that which requires a variable name to not contain a BASIC reserved 
word. In this case it is the word To incorporated in TOTAL. As you become 
more familiar with Oric BASIC you are less likely to make this mistake, but it 
can be baffling. If in doubt, check the list of reserved words in Appendix 12. 
To correct the error we must use a valid variable name. Let’s use PRICE. 
Since this has the same number of letters as TOTAL, we can cursor up to line 
40, copy the line number and LET (and the space after LET), then, with the 
cursor over T, type in PRICE, and then copy the rest of the line. Pressing 
RETURN puts the revised line into memory. It’s important to remember that 
what’s on the screen may not be what’s in the memory if you are doing a lot 
of editing. Use LisT frequently, so you know what your Oric has stored. 

Line 5@ must also be revised, but we can leave the string “TOTAL=” as is, 
since we can have anything we want inside the quotes as this is just a 
collection of characters to the Oric, and it knows it doesn’t have to check for 
BASIC words inside the quotes. So copy line 50 up to and including the 
semi-colon, and then type PRICE followed by RETURN. The program should 
now look like this after you’ve LisTed it again. 
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1@ REM XUAT Calculationx 
2@ LET SELL=20 

3@ LET VAT=@. 15xSELL 

4@ LET PRICE=SELL+VAT 

5@ PRINT "TOTAL=" ;PRICE 


Press RETURN, then either take the cursor down the screen to a blank line, 
or use CTRL-L. Then enter RUN. When you press RETURN you'll get: 


RUN 
TOTAL= 23 


So we’ve got a working program, but you might be wondering why we 
bothered, since it was hardly an efficient way of doing something that would 
have taken us a few seconds with rather cheaper materials such as a stretch 
of flat sand and a finger. The answer lies in the computer’s ability to 
perform defined tasks quickly and repeatedly. Since we have now got a 
working program, with the necessary sequence of small operations defined 
which perform the desired task (such a method of producing the desired 
result is called an algorithm) and having translated this into BASIC instruc- 
tions entered into the computer (called coding the program) and test-run 
the program, we may consider improvements. 

The first thing we need is some way of applying the calculation to 
different values of SELL. We could copy line 20, changing the value of SELL, 
and then RUN the program again, but there’s a better way. We can use the 
BASIC instruction INPUT, which tells the Oric to wait for an input from the 
user. This needs to be followed by the name of the variable in which 
whatever is keyed in will be stored. Enter a new line 20:20 INPUT SELL and 
then RUN the program. A question-mark appears, and anything keyed in 
appears on screen. If you enter a number, this value will be assigned to the 
variable SELL when you press RETURN, and the program will then continue. 
The single question-mark doesn’t give the user much guidance on what the 
Oric is expecting to be entered, and INPUT allows us to provide a prompt 
string. The prompt is enclosed in quotes, must be followed by a semi-colon, 
and the variable to be input is last. Key in: 


2@ INPUT"ENTER SALE PRICE" ;SELL 


RUN the program again. Try entering non-numeric values for SELL. The 
INPUT is checked by the Oric, and if it doesn’t make sense as a number the 
message ?REDO FROM START is displayed, and the prompt and question 
mark are displayed again, as the Oric waits for more acceptable INPUT to be 
forthcoming. 
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We could do with a way to avoid entering RUN each time, and BASIC 
provides several ways to do this. The simplest (but not the best) is to use 
GOTO. This instruction is followed by a line number, and on encountering 
this instruction, the flow of program control (which normally follows the 
sequence of line numbers) is diverted to the specified line number. We want 
to repeat the whole sequence, starting at line 20, so we add a new line, anda 
REMark to comment on the action. This uses an abbreviation for REM (just as 
a ? can be substituted for PRINT), which is the apostrophe (’). The use of a 
comment for such a simple and self-explanatory instruction may appear 
redundant, but we’re introducing with a very simple program the same 
instructions and techniques that apply in large programs, perhaps with 
hundreds of lines of code, which need REMarks to clarify the program’s 
purpose and structure. This applies as much to the program author as 
anybody else, as it is surprisingly easy to find yourself looking at a program 
weeks or days later, and not remember the logic of the way you wrote the 
program. Keeping notes of the process of program development, and 
scattering REMs around the program, can help avoid such irritating and 
time-consuming problems. 


1@ REM XVAT Calculationx 

2@ INPUT"ENTER SALE PRICE" 5SELL 

3@ LET VAT=@. 15xXSELL 

4@ LET PRICE=SELL+VAT 

5@ PRINT "TOTAL="5;PRICE 

68 ’Round again for next calculation 
7@ GOTO28 


Every time the program encounters line 70, the program flow is sent to line 
20, and the process repeats. This procedure can only be halted, with the 
program as it stands, by using CTRL-C instead of INPUTting the value of 
SELL. This performs a BREAK operation, halting the execution of the 
program. CTRL-C will halt any operations, but the program cannot be 
restarted, so it is mainly used to abort a program that is not performing as it 
should, or to get out of endless loops. Despite all the other stuff in between, 
our program is equivalent to: 


1@ PRINT "LOOP" 
28 GOTO 12 


There are better methods of arranging program loops, you will be glad to 
hear, but we’ll deal with those in Chapter 4. 

If you RUN the program again we can now do repeated calculations, and 
we’re getting to the point (finally!) where you might be able to appreciate 
the value of computers, since your Oric will now do repeated calculations as 


The Language Lesson 19 


quickly as you INPUT data for it to work on. Of course, unless you happen to 
be a shopkeeper or suchlike, you may not feel that it enhances your life, but 
that’s another matter. 

For now, you’re being introduced to the BASIC language, and it’s as good a 
program as any to work with. Fun, flashing colours and electronic music 
have to wait until we’ve covered the essentials of BASIC, unfortunately. 

So, for the moment, what else can we do with our admittedly somewhat 
tedious program? Well, currently the screen scrolls with each new PRINT 
statement encountered. It would be nice if each calculation started on a 
fresh screen. We’ve seen CLS as a direct command, and we can also use it ina 
program line. Enter a replacement for the current line 70: 


7@ CLS:GOTO 20 


We’ve now got a line with two instructions, separated by a colon. This 
operates just as in an English sentence: First one statement is executed, and 
then the second. You can have as many statements on a single line as you 
want (up to the line length allowed), but there must be a colon after each 
statement. 

If you RUN the program, you’ll see that line 70 works, so that the screen is 
cleared, and the program then Goes TO line 20. There are a couple of 
problems, though. Firstly, the screen doesn’t clear before the first prompt 
is printed, and secondly there’s no time for the result to be read — it just 
flashes up something, and then as quickly erases it. What do we do about 
this? Oric BASIC has a statement that halts program execution for a specified 
time: WAIT. This is followed by a number specifying how many hundredths 
of a second the delay will be. WAIT 100 will stop the program for 1 second, so 
we can try putting in a delay whilst the result of our program is displayed. 
Again, we’ll just add it into a new line 70, which now has 3 statements in it. 
EDIT line 70 so that the program reads as follows: 


1Q@ REM XUAT Calculationx 

28 INPUT"ENTER SALE PRICE" ;SELL 

3@ LET VAT=@. 15xXSELL 

4@ LET PRICE=SELL+VAT 

5Q@ PRINT "TOTAL="5PRICE 

68 ’Round again for next calculation 
7@ WAIT 5@@:CLS:GOTO 20 


We now have a program that waits whilst we have the result on screen, but 
the delay is inflexible. We could do with a way of allowing the user to tell the 
Oric when a new calculation is to be performed. We’ve used strings thus far 
only as characters between quotes, but we can also have string variables, 
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which store strings of characters in the same way as numeric variables hold 
numbers. The variable names have to follow the same rules as those for 
numeric variables: no reserved words in the name, first character of the 
name a capital letter, and the rest any combination of capital letters and 
numbers. The variable is defined as a string variable by adding $ to the end 
of the name. W$, NAME$, ST12$, would all be valid string variable names. 
String variables can be PRINTed, INPUT and assigned using the (optional) 
LET statement and the = sign, in the same way as numeric variables. Again, 
only the first two letters of the variable name are recognised. The value 
assigned to a string variable is a string of characters, and not a number, and 
although we could give a string variable the value ‘123’ this is still just a 
sequence of characters. The program below can be entered with our VAT 
program still in the Oric: 


108 A$="ORIC" 

120 LET Al$="BASIC" 

138 LET LAST$="LESSON" 

14@ INPUT"ENTER YOUR NAME,PLEASE" ;NAMES 
15@ CLS:PRINT A$5" "SAIS 5" "“SLASTS 

16@ PRINT “FOR " ;NAMES 


We can RUN just the portion of the program from line 100 onwards by using 
a different format for RUN. Entering RUN100 as a command will start the 
program execution at line 100. Line 100 assigns ‘orRIC’ to the string variable 
A$, without using LET, and Al$and LASTS are assigned in lines 120 and 130, 
with LET used. Line 140 uses INPUT with a prompt string, for which the 
format is the same as that used with numeric variables. 150 clears the 
screen, then PRINTs the three strings in sequence, separated by spaces 
between quotes, and line 160 prints FoR, followed by a space, and then your 
name stored in NAMES. 

We could also use GOTO100(Or GOTO 100, since, as is usually the case with 
the Oric, the spaces don’t count), to start the program from line 100. This 
would apparently have the same effect as RUN100, but there is a difference. 
Try using GOTO100 to start the program again. The difference can be shown 
by using GOTO160. This will PRINT out FOR, followed by the name that was 
INPUT last time the program was executed from line 100. The old value of 
NAMES was preserved. If you now RUN160, you will just get FOR, because the 
variable NAME$ has been CLEARed of what it stored. In a program or as a 
command, CLEAR is used to wipe out any existing contents of variables. 
Strings revert to an empty or null string (not a string of spaces), and 
numeric variables to zero. The difference between using RUN and GOTO 
(line number) to start a program is that RUN does an automatic CLEAR 
operation before starting. RUN1v@ again, then enter CLEAR as a command, 
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and PRINT NAME$. You will get nothing on screen, since NAME$ now has 
nothing in it. 

Having completed our digression through strings, RUN and GOTO, we can 
deal with the problem of our VAT program again. Eradicate lines 11@ to 160, 
by entering just the line numbers and then RETURN. Remember this doesn’t 
alter the screen display, so LIST the program again to check they’re all 
non-existent.Enter the following new lines: 


65 °First get keyboard input 
66 GET A$ 


We now know what A$ represents. GET is an instruction that tells the Oric to 
wait until a key is pressed, and then store a single-character string in the 
following string variable, corresponding to the key that was pressed (‘X? if 
you press X, etc.). The result of line 66 is to wait until a key is pressed, 
before the program moves on to the next program line. The walt 500 
instruction can now be edited out of line 70. Your program should now look 
like this: 


1Q REM XUAT Calculationx 

20 INPHT"ENTER SALE PRICE" 5SELL 

3@ LET VAT=@. 1S*XSELL 

4@ LET PRICE=SELL+VAT 

S@ PRINT "TOTAL=" ;PRICE 

68 *?Round again for next calculation 
65 ’First get keyboard input 

66 GET A$ 

72@ CLS:GOTO 28 


RUN the program again, and confirm that GET works as stated. Notice that 
we don’t do anything with A$ when we use GET in this way, since we’re not 
interested in which key was pressed, just in the fact that some key was 
pressed by the user of the program. 

This brings up another point which should be borne in mind when 
writing a program. We know that a key is to be pressed because we’ve 
written the program. Anyone else needs instructions and guidance. This is 
referred to as making a program ‘user-friendly’. Below is a listing of an 
improved version, with some more friendly features. 


1Q@ REM XVAT Calculationx 

15 CLS 

20 PING: INPUT"ENTER SALE PRICE" 5SELL 

25 PRINT:PRINT"SELLING PRICE="5;SELL 3"Po 
unds" 
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38 LET VAT=@. 1SXSELL 

35 PRINT “VAT on" ;SELL;"Pounds=" ;5VAT 5"P 
ocunds" 

48 LET PRICE=SELL+UAT 

38 PRINT "“TOTAL="5PRICE;"Pounds" 

6@ *?Round again for next calculation 

61 ’Print prompt 

62 PRINT:PRINT"Press any key to make an 
other entry" 

65 ?Get keyboard input 

66 GET A$ 

7@ CLS:GOTO 28 


Line 15 has been added to clear the screen before anything else happens. 
Line 20 has had PING (one of the Oric’s predefined sound commands) added 
to provide an audible INPUT prompt. PINGs companions are ZAP, EXPLODE 
and SHOOT, and are useful simple sound commands. (See the Keywords and 
Sound chapters for more information.) Lines 25 and 35 have been added to 
clarify the operations the program is performing, and the units (pounds) 
have been stated. Line 61 is a REMark referring to line 62, which tells the 
user what he or she has to do next. 

Key in this final version of our program. If you wish to experiment with 
saving programs on to tape, Chapter 6 has the details of how to go about 
this, and you might as well experiment with this program. 

Make sure you understand all the bits of BASIC we’ve used thus far. 
Chapter 9 contains every Oric BASIC keyword in alphabetic order, with the 
format required and its definition. You might usefully check through the 
definitions of Chapter 9 for all the BASIC words we’ve encountered. 

We'll proceed with this introduction to BASIC by considering the way data 
is held in the Oric, and the ways this can be manipulated. 
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We’ve now seen some of the Oric’s BASIC instructions, and how they are put 
together into a program. There are three essential elements to any program, 
however complicated, whether we want exciting alien hordes or boring 
VAT figures as our end result. The Oric, or any other computer, needs data 
(which may be defined within the program or INPUT), plus a set of 
instructions as to how to process said data, and how to display the result. 
Before we move on to introduce more complex BASIC instructions we need 
to know more about the way the Oric deals with data. 

We’ve seen the two types of data — string and numeric — that the Oric can 
handle. The numeric variables we’ve using are real or floating point 
variables (ordinary decimal numbers in fact). The biggest number the Oric 
can hold is 1.70141E+38 and the smallest is 2.93874E—39. These are 
expressed in exponential, E or scientific notations, which the Oric itself 
uses to display numbers outside the range of 999999999 and 0.01. Try the 
two following programs to see how the computer changes its display as the 
numbers become larger or smaller, and note the different results of going 
outside the available range. 


1Q@ N=2 

20 N=NxX8 

38 PRINT N 

4@ WAIT1@:GOTO20 


1@ N=3 

28 N=N72 

38 PRINT N 

4Q@ WAIT1@:GOTO20 


Exponential format provides a way for the Oric to display very large or 
small numbers concisely. Numbers in exponential format are always 
displayed as a decimal between 1 and 9.99999999, followed by E, followed 
by anumber between +38 and —39. The exponent value defines how many 
places the decimal point is shifted (to the right if the exponent is positive, 
and to the left if it is negative) to get the correct number. Put another way, it 
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defines how many times the mantissa (the decimal value before the E) is to 
be multiplied (E positive) or divided (E negative) by 10. Thus 1.23E+09 is 
1230000000.0 and 5.67E—04 is 0.000567. The Oric used two-digit 
numbers for the exponent, and always includes the + sign for positive 
exponents, but it will accept numbers without either a leading zero or the 
plus sign. For example, 1.23E9 would be accepted as a valid input. Try 
inputting small and large numbers, in both the exponent and standard 
formats to acquaint yourself with the system. 

The Oric can handle integer (whole number) values between 32767 and 
—32768, and has a separate type of variable to store such number. Integer 
variables are identified by appending % to a valid variable name. Thus 1%, 
N4%, WHOLE% are all valid names for integer variables. They can be 
assigned non-integer values, but in this case the number will be rounded 
down to the next smallest integer (not to the nearest integer). Enter the 
following program to see this in action: 


1@ LET B*=6 

20 B*=B%72, 23 

38 PRINT Bé# 

4@ REALUAR=4. 845 

5@ WHOLUAR*=REALVAR 
68 PRINT WHOLUAR 
70 R*%=-3.4 

8@ PRINT R% 


Note especially what happens to a negative number. In rounding down 
negative numbers, we need to remember that —1, is smaller (less than) 
zero, —2 smaller than —1, etc. Hence the next smallest integer to —4.67 is 
—5, and so on. Integer variables are processed more quickly in calculations 
than floating point variables, and also take up less memory, so they should 
be used whenever possible if speed or economy of memory is important to a 
program. 

The Oric also recognises hexadecimal numbers. These are numbers 
representing a different number system which is frequently used in com- 
puting, since it allows convenient and concise representation of binary 
numbers. Binary numbers are the sequences of zeros and ones used by the 
Oric (and all other computers) to hold all forms of data memory. 

Binary representation is used because the electronic switches which are 
the basis of computers can only be either off or on, and each ‘switch’ is used 
to represent 1 when on and 0 when off. There’s more on number systems 
later (see Chapters 5 and 10), but for the moment all you need to know is 
that the Oric will accept, both in a program, and as input, anything 
preceded by the hash sign, #, which is a valid hexadecimal number. Try 
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printing #FFFF, #1, #A, #10, as examples, and sneak a look forward if 
you can’t wait for the explanation. The Oric has internal routines that 
convert all the binary numbers into outputs we humans can cope with more 
easily, such as decimal number (and hexadecimal, for the computer freaks), 
and vice versa, when we enter numeric data. 

We’ve introduced strings and string variables, but since we’ve just said 
that all the information in your Oric is in the form of binary numbers, how 
come we get letters and symbols on the screen? Well, they’re (binary) 
numbers too. Each character that appears on the screen has an associated 
character code, (known as its ASCII code). The full list of all the character 
codes is given in Appendix 1. 


We now move into the area of BASIC functions. 

Oric BASIC contains functions which perform various manipulations on 
the data it holds. Some of these allow us to convert one type of data into 
another. We can find the numeric code of a character using the string 
function ASC. The format we need to use with ASC is to place the character of 
which we want the code inside brackets. Try entering: 


PRINT ASC(“‘A”’) 


You'll find 65 is PRINTed out, which is the ASCII code for A. The program 
below does this repeatedly for any character (SHIFTed or not) that you enter 
as A$, using GET. Note that the string inside the brackets can be either a 
literal string in quotes, as above, or, as in the program, a string variable. All 
functions require what is known as an argument (the thing inside brackets) 
which they operate on, and are said to return a result (the ASCII code of the 
string argument, in this case). 


19 PRINT"PRESS A KEY" 

20 GET AS 

3@ PRINT" YOU PRESSED "A$ 

4@ PRINT"THE CODE FOR "A$"="ASCCAS) 
38 GOTO 18 


When you’ve had enough of pressing keys and seeing the ASCII codes 
PRINTed out, try stopping the program using CTRL-C. You'll find that 
instead of breaking into the program, you’re informed that you pressed a 
blank, and that the code for a blank is 3. The Ascii code for CTRL-C is 3, but 
since this is a non-PRINTing character, we don’t get anything on screen. 
You'll have to use the RESET button underneath your Oric to stop the 
program. (You will probably need a biro or something similar to get at the 
button inside the square hole.) 

Notice that since this program does not use semi-colons as separators 
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between PRINT items, the PRINT line, although it works, is not as easy to 
read as it would be if semi-colons were used. 

The reverse function to ASC is CHR$. This takes a number between @ and 
255, which is the valid range of the argument, and returns a string 
containing the character whose ASCII code is that number. Having RESET 
your Oric, add line 45 to the program, so that it LISTs like this: 


1@ PRINT" PRESS-A KET" 

20 GET A$ 

3@ PRINT" YOU PRESSED "A$ 

4@ PRINT" THE CODE FOR "A$"="ASCCAS) 

45 C=ASCCASI:PRINT "CHRS$C"5C3") GIVES " 
sCHRS$CC) 

5@ GOTO 18 


Line 45 takes the number returned by ASC(A$), and assigns it to the variable 
c. This is then inserted into the middle of the PRINT statement (which does 
use semi-colons) and taken as the argument for CHR$ at the end of the line. 
RUN the program. Again you’ll have to use the RESET button to stop the 
program. Notice that because the numeric value C was used, there is a 
leading space and, on the V1.1 only, a trailing space attached to the 
number. The correct format for CHR$ is CHR$(I), where I is a number @ to 
255, with no spaces, as in the actual function at the end of the line 45 

Strings and numeric values can be translated using VAL and STR$. VAL has 
the format VAL(a$), where a$ means any string literal or variable with initial 
characters that the Oric can interpret as a number. Try this program to 
experiment with VAL: 


10 PRINT" INPUT A NUMBER" 

2@ INPUT NUM$ :NUM=VAL CNUMS$ ) 

3Q PRINT "THE STRING ";NUM$;" CAN BE TU 
RNED INTO THE NUMBER ";NUM 

4Q@ PRINT "2k" ;NUM;"=" 52XNUM 

39@ GOTO 12 


VAL will evaluate and return the result of any string interpretable as a 
number, up to the first non-numeric character. Try entering 23DF, +45, 
#F6 (hexadecimal format), #2BK (K not a valid hexadecimal character), 
1E4 (exponential notation), 23.6E7, —23.6E9, and 2*3 to illustrate the 
action of VAL with different strings. Because we’re using INPUT in this 
program, you can use CTRL-C to break the program at the INPUT prompt. 
The inverse function to VAL is STR$, a string function which returns the 
string containing the result of evaluating a numeric expression. The 
expression or number is evaluated by the Oric’s arithmetic routines and is 
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then changed into a string, so we get the same result (but as a string) as if a 
number had been printed on the screen. So complex expressions (possibly 
including other functions) can be turned into the string equivalent of their 
result. We can have lines like: 


PRINT STR$CH#A4712. 4E7+5k-3. 4°43) 
and, to illustrate the use of other functions in the argument of STR$§, try: 


10 LET A$="3.567E7" 
2@ PRINT STR$C123712. 4XVAL CAS) J 


An important point to note about functions which involve arithmetic 
calculation is that they have the highest priority in evaluating an expression, 
above exponentiation. The result of applying a function to an argument is 
evaluated first, before any other calculations are worked out. 

The other string function for numeric conversion is HEX$. This returns 
the string form of the hexadecimal number equivalent to the argument. For 
example, HEX$(418) returns #1A2. Since hexadecimal numbers can only be 
integers between @ and 65535, any numbers outside that range will give a 
?ILLEGAL QUANTITY ERROR, and any non-integer values will be auto- 
matically rounded. 

A numeric function associated with those we’ve been dealing with is INT. 
This performs the same operation as occurs with integer variable and, as 
we’ve just noted, hexadecimal numbers, that of rounding down a number 
to the next smaller INTeger. We use INT whenever we want a whole number 
value for a number, and the Oric does the same thing automatically for the 
arguments of functions that need an integer value. Try PRINT CHR$(67.9), for 
example, and you’ll get C appearing on screen. The Oric rounds down, and 
takes 67 as the value of the argument, since character codes can only be 
whole numbers. A valuable use of INT is in rounding numbers to a specified 
number of decimal places. This is based on the fact that, whereas INT(n) 
rounds down, INT(n+0.5) rounds to the nearest integer. Thus INT(3.7) gives 3, 
but INT(3.7+0.5) equals INT(4.2), which gives 4. Rounding 4.567 to two 
decimal places, for example, involves rounding. 067 to .07. We can code a 
program line to do this by multiplying by 10 to the power of the number of 
d.p. we require, adding 0.5, using INT on this value, and then dividing by 
the same power of 10. We can produce a program that will round to a 
specified number of places. 


1@ REM *ROUNDING TO DP DECIMAL PLACESX 
2@ INPUT"ENTER A NUMBER "3N 

3@ INPUT"HOW MANY D.P."5DP 

4@ LET ROUNDNUM=( INT(NX1@“DP+@. 5) 371000 
P 

5@ PRINT ROUNDNUM 
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We’ve seen how strings can be converted to numbers and vice versa, but 
what about manipulating strings as strings? Well, we can extract sections of 
strings, using the functions LEFT$, RIGHT$ and MID$, and add strings 
together. String addition (called concatenation) uses the + sign, and simply 
joins the strings together, like this: 


1Q@ LET A$="Oric-1" 

2Q INPUT"What’s your name " ;NAME$ 

30 LET B$="BASIC Lesson" 

4@ LET SPACE$=" ": REM single space 

50 LET AS$=A$+SPACE$+BS 

62 LET GREETS="Hi,"“+NAME$+",9lad you co 
uld make it" 

7Q@ PRINT GREET$ 

8@ LET BASIC$="For your" +SPACE$StA$ 

98 PRINT BASIC$ 


To illustrate string slicing here’s an example of LEFT$ in action: 


18 A$="PORTAGE" 

20 BS="ANDALUCIA" 

30 C$="STARTLED" 

4@ D$="ARDENNES" 

5@ L$=LEFTSCA$, 4) 

60 AN$=LEFT$(B$, 3) 

7@ PRINT L$ 

88 PRINT AN$ 

3@ R$=LEFT$C"BOAT", 2)+LEFT$(D$,; 3) 
1@8 R$=LEFT$CC$,4)+R$ 
11@ PRINT R$ 


The argument of LEFT$ is the string from which characters are to be 
extracted, and the value of the number of expression following the comma 
specifies how many characters, starting from the beginning of the string, 
are required. 

All the Oric functions, along with the other BASIC keywords, are defined 
and illustrated in Chapter 9, to which you should refer whenever one you’re 
unfamiliar with is used or mentioned in the rest of this handbook, and for 
additional information for the ones covered in this introduction to BASIC. 
Refer to Chapter 9 for RIGHT$ and MID$, and the final string function, LEN. 
This function returns the LENgth of a string, i.e. the number of characters 
in the string. 
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Oric BASIC has the following built-in numeric functions: 


ABS(n) — Returns absolute magnitude of n 
ATN(n) _ Returns arctangent of n 

cos(n) —_ Returns cosine of n 

EXP(n) Returns e raised to the power of n 
INT(n) Returns n truncated to integer 


LN(n) Returns natural (base e) logarithm of n 
LOG(n) Returns common (base 10) logarithm of n 
PI Returns value of 7 


RND(n) Returns a random number 
SGN(n) Returns 0 if n zero, 

1 if positive, 

—1] if negative. 
SIN(n) Returns sine of n 
SQRin) — Returns square root of n 
TAN(n) Returns tangent of n 


Note that pI does not have an argument, but just returns the value of the 
constant PI(7). Numeric functions perform difficult calculations, for which 
we would otherwise have to write complex programs every time we wanted 
to include them in calculations. 

We'll take Cos as an example of a numeric function. This calculates the 
basic trigonometric ratio of the Cosine for the angle specified by the value of 
the expression in brackets. 

In the format COS(n) the argument n may be a number, a numeric variable 
or an expression (which can include other numeric functions). The angle is 
measured in radians, and not degrees. (360 degrees = 2*PI radians.) For the 
right-angled triangle shown below, the cosine of the angle at A will be the 
ratio of adjacent side/hypotenuse (AC/AB). 


of 
RS 

2) 
we 


© Opposite side © 


A Adjacent side 
Unless you know about trigonometry, you are unlikely to want to use the 
Oric’s trigonometric functions very much. They are, however, useful in 
defining screen positions when using the Oric’s HIgh RESolution graphics 
mode, which we’ll deal with in Chapter 7. 

As well as the inbuilt numeric functions of the Oric, of which we’ve met 
COS and INT, there is a way to DEFine your own FuNctions, using the DEF FN 
statement. The user (that’s you!) gives a definition of the required function 
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at the beginning of the program, with a statement of the form: 
DEF FNv(z)=numeric expression 


The v is the function name (a single letter A-Z), and the z is a standard 
numeric variable name. The expression that follows is a numeric expression 
which can include any other numeric functions, and uses the variable z as 
part of the expression. The defined function is then called in the same way 
as a standard function, with the name (FN followed by whatever letter was 
used), and a value or parameter within brackets. Let’s take a look at an 
example: 


5 REMXKDefine FuNction M to convert feet 
to metres 

1@ DEF FNMCFEETJ=FEETXQ. 3048 

2@ INPUT"HOW MANY FEET" 5x 

30 M=FNMCX) 

4@ PRINT X;"FEET EQUAL" 5M3" METRES" 


We’ve defined a function called M, with an argument FEET, such that the 
function M multiplies the variable FEET by the conversion factor 0.3048 to 
give us the equivalent number of metres. When the number of feet is input 
in line 20, the value is assigned to the variable x. In line 30, the variable M 
(which is a different thing to the function name M) is given the value FNM(X), 
meaning ‘look for the function called M, and calculate the resulting value, 
using the value of X to replace the variable name used in the argument and 
the expression following the equals sign’. The variable in the brackets is 
known as a ‘dummy variable’, since it only serves to define a sequence of 
operations, and is replaced by a variable which has had its value defined in 
the program when the function is called using FN. At any point in the 
program (as long as it’s after the DEF FN statement) we can use the defined 
functions, using any value we wish to insert in place of the dummy variable. 
Here’s another example: 


1@ REM XDefine Functions for inches to 
cm,and for area of circlex 

2@ DEF FNCCIJ=1X2,.54 

30 DEF FNACRI=PIXR*2 

4@ INPUT"Radius of circle Cin inches)"; 
RAD 

3@ CMRAD=FNCCRAD) 

6@ AREA=FNACCMRAD) 

7@ PRINT "Area is"$5AREA;" sq.cm," 
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Line 20 uses the dummy variable I to define a conversion function (FNC) for 
inches to centimetres, and line 30 defines FNA so as to give the area of a circle 
(mr?) using the dummy variable R, and the inbuilt function PI. Line 50 uses 
the INPUT value RAD as the parameter for FNC (replacing the dummy 
variable 1), to get the radius in centimetres as CMRAD, which is used in turn 
as the parameter for FNA in line 6@. Since, as with the use of PI, we can use 
any function in the DEFinition, lines 5@ and 60 may be combined: 


10 REM xDefine Functions for inches to 
cm,and for area of citclex 

2@ DEF FNCCIJ=1 2.54 

3@ DEF FNACRI=PIXR*2 

4Q@ INPUT"Radius of circle Cin inches)"; 
RAD 

5@ AREA=FNACFNCCRAD) J 

6@ PRINT "Area is";AREA;" sq.cm," 


In fact, a single function will take care of the whole calculation: 


1Q@ REMXDefine function for sq.cm. area 
of circle from radius in inchesx 

28 DEF FNACRADJ=CRADX2.54)*2xXP] 

32 INPUT"Radius of circle Cin inches)"; 
RAD 

4@ AREA=FNACRAD) 

5@ PRINT "Area is";AREA;" sq.cm," 


Notice that here we’ve used the same name for the actual variable used in 
the calculation as for the dummy variable. As many functions as we require 
up to the maximum of 26 allowed by single letter names can be used in a 
program, to avoid repetitive calculations. 


Before we can consider the two final methods of data storage available in 
Oric BASIC, we need to introduce you to loops. Repeated operations occur 
frequently in programs, and there are various types of loop structure that 
can be used. The simple GOTO loop we’ve met has a serious problem — it can 
only be stopped by breaking into the program. The Oric has a FOR . . . NEXT 
structure available, which we can use whenever a sequence of program 
statements is to be repeated a definite number of times. A FOR . . NEXT loop 
is set up using a statement of the form: 


FOR v=n1 TO n2 STEP n3 


which defines a variable v (a standard numeric variable) which will control 
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the loop, and two numeric expressions which initialise the start value (nl) 
and define the finish value (n2) of the loop. The sTEP statement may be 
omitted only when the STEP value (n3) is 1. The loop variable is set to the 
start value, and the program continues until it meets a NEXTv statement. 
The value of the loop variable is checked, and if it is not greater than or 
equal to the finish value the STEP value is added, and the program loops back 
to the statement following the FOR .. statement. Notice this is the state- 
ment, not the program line following the FOR . . . statement, so that we can 
have a FOR . . NEXT loop all on one line: 


1@ FOR L=1 TO S:PRINT LXL‘*NEXT L 


If the STEP value is negative, the loop variable is checked to see whether it is 
less than the finish value: 


1@ FOR L=1@ TO 5 STEP-1:PRINT LXL :NEXT 
L 


The facility to use the value of the variable controlling the loop in 
expressions within the body of the loop is very useful: 


18 CLS 

28 FOR LOOP=@8 TO 25 

38 PRINT CHR$(C65+LOOP) ;CHR$C3S7+LOOP) ; 
4@ NEXT LOOP 


FOR . . NEXT loops are often used in conjunction with another way of storing 
data within a program, using READ and DATA. A program line, or sequence 
of lines, starting with DATA is used to hold strings or numbers, separated by 
commas. These can go anywhere in the program, and the Oric starts with 
the first DATA item when a READ statement is encountered, which places the 
number or string into the variable which follows READ (w! ‘ch must be the 
appropriate type for the DATA). A pointer is then placed against the next 
DATA item, which will be the one used when the next READ instruction 
comes along. RESTORE will reset the pointer back to the start of the DATA 
items. The principle is shown in the next program, which uses a loop to 
READ and PRINT the string DATA, and then RESTOREs the DATA pointer, so 
that the days can be READ and PRINTed again. Notice that the loop variable 
is not specified after the NEXT statements, which is permissible, but 
potentially confusing, and that string DATA items do not need quotes 
(although they may have them, and must if the strings are to contain leading 
or trailing spaces, commas, or colons). 
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1Q@ REMXREAD and DATAX 
20 FOR D=8 TO 6 


3@ READ D$ 

48 PRINT D$ 

5@ NEXT 

6@ REM... lots more program 
7? 


280@ DATA MONDAY, TUESDAY, WEDNESDAY, THUR 
SDAY 

201Q@ REM...more program in between 

3000 DATA FRIDAY; SATURDAY, SUNDAY 

4000 REM..can do it again 

401@ RESTORE 

4020 FOR K=1 TO ? 

4030 READ DAY$:PRINT DAY$=NEXT 


The final form in which the Oric can hold strings or numbers is as arrays. 
These are normally set up using the DIM statement, and you should turn to 
the entry for DIM in Chapter 9 before going any further. 

OK, you now know what an array consists of. The usefulness of arrays is 
not only that they allow storage of similar items of data without the 
definition of an individual variable for each item separately, but they are 
also indexed by their subscript number(s). This allows us to cross-reference 
and perform operations on the elements of arrays easily. Here’s a short 
example which demonstrates the way in which arrays enable otherwise 
difficult operations to be programmed simply: 


1@ INPUT"HOW MANY NAMES" 5N% 
20 DIM NAMES$CN*) :>DIM AGECN<) 
38 CLS:SUM=@ 

48 FOR K=1 TO N& 


) PRINT "ENTER NAME NO. 'K 

6a : INPUT NAMESCK3) 

2Q : PRINT NAMESCKI"?S AGE ?" 

BO : INPUT AGE CK) >SUM=SUM+AGE CK) 
30: CLS 

100 NEXT K 


110 FOR K=N% TO 1 STEP ~-1 
120 : PRINT:PRINT NAMESCK)" IS"; 
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138: PRINT AGECKI" YEARS OLD" 

14@ NEXT K 

15@ PRINT:PRINT "TOTAL AGE"SUM" YEARS" 
16@ PRINT"AVERAGE AGE"SUM/“N%" YEARS 
17@ END 


We can use the INPUT variable N% to DIMension two arrays to the size 
required, and to set the FOR . . NEXT loops identically. Note that humans 
often find it easier to consider arrays as having subscripts starting at 1, as 
here. This just leaves the array elements NAME$(0) and AGE(0) unused. The 
value of the loop variable is used to access each pair of array elements in 
sequence, once for INPUT and once for PRINTing out. The total age can be 
easily SUMmed at the same time. 

Loops within loops are known as nested loops. We can have as many levels 
of nesting as we want, up to a maximum of 10. The important thing is that 
the loops must be correctly nested, with each loop entirely within the one 
outside it: 


30 FOR A=1 TO6 
40 FOR B=1 TO 3 


go bias wraleccsees Inner Loop 
Outer Loop 


80 NEXT B panera | 
128 NEXT A 


Nested loops can be used to access and initialise multi-dimensional array 
elements: 


1@ DIM N*C1@;3) 

20 CLS 

3@ FOR K=1 TO 18 

40: FOR J=1 JO 3 

30 : N% CK, JJ=KOJ 
60 : PRINT N&*C(K; J) 
7O : NEXT J 

86 : PRINT 

30 NEXT K 
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DATA can also be READ into arrays: 


10 OIM M$C121:DIM D*«(12) 
20 FOR K=1 TO 12 


30: READ M$CKJ 
4Q : READ D*(K) 
5@ NEXT K 


6@ INPUT"WHICH MONTH C€1-12)" 5MNTH 

7@ PRINT M$CMNTHI 3" HAS "3D4CMNTHI 3" DA 
ES 
188 DATA JANUARY, 31, FEBRUARY; 28, MARCH; 3 
1,APRIL,30,MAY, 31, JUNE, 38 

118 DATA JULY,31,AUGUST, 31,SEPTEMBER; 32 
, OCTOBER; 31, NOVEMBER, 38, DECEMBER; 31 





The Oric stores the address of the line or statement after the FOR. . TO 
statement (to which program control passes back on encountering a NEXT 
statement) in a stack, a last-in first-out pile. This is the reason the variable 
name may be omitted (the Oric doesn’t mind, but including the variable 
helps humans read a program listing), and also why loops must be correctly 
nested, since the Oric just looks at the address on the top of the pile. After a 
loop is completed, the address is removed, and a subsequent NEXT will 
activate a jump to the address now on the top of the pile. The stack can only 
hold 10 addresses, and more than 1@ loops will give an ?0UT OF MEMORY 
ERROR message. 

The same stack is used for the other type of loop available on the Oric, the 
REPEAT .. UNTIL structure. We’ll deal with this in the NEXT chapter. 


4 Loops beyond 
compare 


An alert reader might have noticed that the FOR. ..NEXT loop structure 
implies that the Oric is capable of making decisions about whether one 
number is greater than another, since the loop variable has to be checked 
against the end value of the loop before the Oric can decide whether to run 
through the loop again or continue with the next statement. 

Well, we can also do this in BASIC, and in fact this capability is crucial to 
programs, since decisions can be made, and the sequence of actions shunted 
on to different sequences of operations. Introducing REPEAT. . .UNTIL loops 
brings the question to the forefront, since REPEAT. ..UNTIL structures 
REPEAT a sequence of operations UNTIL a condition is met. 

Conditions are tested by means of conditional operators: 


=  Equalto 

<> Not equal to 

> Greater than 

< Less than 

>= Greater than or equal to 
<= Less than or equal to 


These operate much as you would expect for numeric values. Two things 
need to be remembered, however. The first is that, for negative numbers, 
—6 will be less than —5, and so on, and the second is that the Oric, like any 
computer, is not totally accurate in its calculations. Where complex 
numerical operations have been performed to produce a number to be 
tested for equality with another, there is the possibility that the least 
significant figure of the value will be in error. In such cases it is better to take 
the ABSolute (positive) value of the two figures, and then test that the 
difference is less than an acceptable amount. Refer to the ABs section in 
Chapter 9, and see the program below: 


1@ LET NINECUBE=3*9x3 

20 IF (NINECUBE=S43 THEN. -PRINT. “PRUE” -EL 
SE PRINT"FALSE" 

3@ IF ABSCNINECUBE-9*3)<1E-7? THEN PRINT 
“TRUE” ECSE PRINT"PFALSE” 


Loops beyondcompare 37 


What’s the IF.. .THEN. ..ELSE statement in line 20? It tests whether the 
variable NINECUBE equals 9 f 3, and decides whether the condition is true 
or false. IF the condition is true THEN it performs the operations specified 
after THEN, and goes on to the next program line, ignoring ELSE and 
anything that comes after it. IF the condition is false, THEN and the 
following statement(s) are ignored, and the statement(s) following ELSE are 
performed before moving to the next line. So we have a program structure 
that says: IF (condition is true) THEN (perform true task) ELSE (perform false 
task). 

In line 20, however, the condition will evaluate as false, and PRINT out 
“FALSE’’, in line 30 the condition will evaluate as true, and ‘“TRUE”’ will be 
PRINTed. 

The ELSE part of an IF. ..THEN construct is optional. When there is no 
ELSE statement, control will pass on to the next line, with the statements 
following THEN having been executed if the condition was true, and ignored 
if the condition was false. 


1@ A=2:INPUT"ENTER A VALUE 98-5" 5C 
20 TF COA. THENOPRINE “GA” 

38 PRINT "THIS IS ALWAYS PRINTED" 
48 GOTO 18 


If we wanted to use ELSE, we might write a line 20 as below: 


1@ A=2:INPUT"ENTER A VALUE 8-5" 5C 

2@ IF C>A THEN PRINT "COA" ELSE PRINT " 
C<A" 

3@ PRINT "THIS IS ALWAYS PRINTED" 

4Q GOTO 12 


However, if you enter 2 for the value of C, we’ll get ‘“C<aA”’ PRINTed out. Is 
this the result we want, you may well ask? Well, we are now in the realm of 
logic, and we must watch our complements. One or the other of the 
THEN... and ELSE... statements must be performed. Computers are 
sticklers for excluding the middle of a sorites, so it’s either one thing or the 
other. What we need to do is recognise the true complements, since it is our 
mistake, not the Oric’s. The opposite, or complementary condition, to > is 
<=, not <. The relationships are: 


<> complements = 
< complements >= 
> complements <= 


So our logically correct output would be produced by the following: 
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1@ A=2:INPUT"ENTER A VALUE @-5"5C 

20 TF CORO THEN PRINT “CA” ELSE PRINT 
C<=A" 

3Q@ PRINT "THIS IS ALWAYS PRINTED" 

48 GOTO 1a 


With the use of an IF...THEN conditional test, we can produce the 
equivalent of a FOR. . .NEXT loop, called a counter loop. The program below 
sets a counter C, increments it by 1 in line 40, and checks the value in line 
50, after the body of the loop. A variation of the IF. . .THEN format is used. If 
the statement after THEN is GOTO (line number), it may be replaced by 
IF. ..GOTO, omitting the THEN, or by IF. . .THEN (line number), omitting the 
GOTO. The Oric interprets all these formats identically, GOTO may similarly 
be omitted after ELSE, if desired. 


1@ REM Counter Loop 


20 C=1 

3@ PRINT"COUNTER VALUE "C 
4@ C=Ct+] 

3@ IF C<4 GOTO 3a 

6@ END 


If the condition C<4 is true, the program will loop back to line 30. Notice 
that with this condition the loop will execute three times. If we replace the 
condition in line 50 with C<=4, it will then execute four times, and be an 
exact equivalent of a FOR C=1 TO 4 loop. Using ELSE would give us: 


1@ REM Counter Loop 

2@ C=1 

3@ PRINT"COUNTER VALUE "C 
48 C=Ct] 

598 IF C<=4 GOTO 3@ ELSE END 


The REPEAT. . .UNTIL construct is started with a REPEAT statement, and the 
program executes the statements in the body of the loop UNTIL a condition 
is set. If the condition is true, the loop terminates, and the program 
continues with the statement after UNTIL (condition). If the condition is 
false, the program loops back to the statement after REPEAT. This can be 
used for the same sort of counter loop: 


1@ REM REPEAT..UNTIL Loop 
28 C=1 
38 REPEAT 
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4@ PRINT"REPEAT "C 

9@ C=Ct] 

6@ UNTIL C=4 

However, the UNTIL condition can refer to any condition whatsoever, and is 
an extremely flexible structure. The following program uses a 
REPEAT. . .UNTIL loop to calculate the factorial of a number: 


1@ REMXFACTORIALSxX 

2@ INPUT"ENTER AN INTEGER" 5J% 
30 N*%=J%-1 SFACTHS% 

4@ REPEAT 

5Q@ : FACT=FACTXN* 

6@ : N*=N%~-] 

7@ UNTIL N*=8 

8@ PRINT"FACTORIAL" 5J%3"=" 5FACT 


They can be useful in data entry routines: 


1@ REPEAT :UNTIL KEY$="G" 
2@ PRINT"END 


1@ REPEAT 

28 INPUT"ENTER A NUMBER BIGGER THAN 3"; 
N% 

3@ UNTIL N*>9 

4Q@ REM REST OF PROGRAM 


The Oric assesses the truth or falsity of a condition by comparison between 
numbers and, since it knows of nothing else, also assigns a numeric value 
(—1) to represent true and considers @ as false. There are system constants 
TRUE and FALSE in Oric BASIC to represent these values. Whilst they only 
substitute for numeric values, their use can help make a program more 
comprehensible to humans. Take the endless loop: 


10. REPEAT 

28 REM PRINTS FOREVER 
3@ PRINT "ONWARDS" 

4O UNTIL. FALSE 


or we could replace the condition N%=0 with N%=FALSE in the factorials 
program: 
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1@ REMXFACTORIALSX 

20 INPUT"ENTER AN INTEGER" 5J% 
3Q N*¥=J%-1 SFACTHS% 

4@ REPEAT 

3@ + FACT=FACTXN* 

68 : N*=N%-1 

7@ UNTIL N*=FALSE 

8@ PRINT"FACTORIAL" 5J% 5 "=" 5FACT 


It is important to note that whilst the Oric always takes @ as FALSE, and in 
evaluating a conditional statement, takes —1 as TRUE, it will accept any 
non-zero number as TRUE when testing numeric variables. 


®: REPEAT 

1@ INPUT A 

2@ IF A THEN PRINT"A IS NOT @ERO"ELSE P 
RINT "A=@,WHICH IS FALSE" 

3@ UNTIL A=FALSE 


Characters and strings may be compared in conditional tests, and we often 
need to compare strings to find out if they are equal. Simple comparison of 
strings to search lists or test input poses little problem since equality is the 
only thing to be tested: 


1@ PRINT" IS YOUR NAME FRED" 

2@ JNPUT"ANSWER YES OR NO" ;A$ 

30 IF A$="YES" THEN PRINT "HI,FRED2" 
4Q@ IF A$="NO" THEN PRINT "“COULDN’T YOU 
Lake cA LT BPREE: Pe" 

5@ PRINT "WELL,WHOEVER YOU ARE,WHAT’S T 
HE PASSWORD?" 

6@ INPUT PASS$ 

7@ IF PASS$<>"FX1I23" THEN PRINT "YOU?RE 
AN IMPOSTOR" :END 

8@ PRINT "AVE FRATER" 


However, care must be taken when comparisons are being made between 
strings for ordering purposes. Comparison between strings is performed by 
looking at each ASCII character code in turn, and whereas in comparison a 
single character difference just tells us what we need to know, in sorting 
alphabetically we have the problem of upper and lower case letters, and 


Loops beyondcompare 41 


possibly numbers as well. First consider a simple sorting program to put 
numbers into ascending order. Each item in a list (stored in the array NUM) 
is compared with each other item in the list, and swapped with any higher 
number it meets. Repeating this process for each number in the list results 
in the desired ordering. Note the use of the variable TEMP to transfer array 
elements: 


5 REMXNUMERIC BUBBLE SORTxXx 

1@ CLS:LET J=15 ’Number of items 
28 DIM NUMCJJ’Array for numbers 
30 ’?Example numbers generated here" 
4@ FOR K=@ TO J 

5@ : LET NUMCKIJ=RNDC1)X1980 

6@ : PRINT NUMCK) 

7@ NEXT K 

33°? 

188 REMXSORTXROUTINEX 

1Q1 ? 

11@ FOR N=1 TO CJ-1) 

120 : FOR N=M TO J 


125 : REM If correct order 
already,then skip 

130 : IF NUMCM) <NUNOCN) THEN 178 

135°: REM Incorrect order;so swap 

140 : TEMP=NUMNCM3) 

158 : NUMCMJ=NUMCN) 

160 : NUMCNJ=TEMP 

170 : NEXT N 

188 NEXT M 

139? 

190 REMXXENDSORT XxX 

134.2 


200 REM xPrint sorted listx 
21@ CLS:PRINT "SORTED LIST:" 
220 FOR K=1TO J 

238 : PRINT NUMCK3) 

248 NEXT K 


The next program is a string version of the bubble sort given above. The 
only difference is the use of a flag to prevent unnecessary comparisons being 
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made when a pass has produced no swaps (elements in correct order). Key 
this in as listed to demonstrate the ordering sequence that strings con- 
taining assorted types of characters produce, and then use the sort routine 
in a program of your own (CAPS INPUT or DATA only!) to sort any alphabetic 
lists: 


5 REM xXxXALPHABET SORT XX 
18 CLS 

15 ?Initialise string array. Replace wi 
th INPUT routine if desired 
28 A$(COJ="1" 

30 A$C1)J="B" 

4@ A$(C2)="ab" 

98 AS$C3IJ="Ab" 

60 A$(4)="zz" 

78 ASCSJ="az" 

88 AS$(CBH)J="p" 

980 A$(C7jJ="d" 

108 A$CBI="XK" 

110 A$C9J="A2" 

128 A$C1GJ="bwert" 

125. 2 

13@ REM XXPRINT LISTxXx 
14@ FOR K=@ TO 18 

15@ : PRINT A$CKI3" "5 
16@ NEXT 

165.2 

178 REMXKXSORT xXx 

18@ FOR K=@ TO 9 ?items-1 


198 : FLAG=FALSE 

200 : FOR M=K TO 14 

216 : IF ASCKI<ASCM) THEN 268 
220 : TEMP$=A$CM) 

230 : A$SC(MI=ASCKI 

240 : ASC(KI=TEMPS 

208 : LET FLAG=TRUE 

260 : NEXT M 

270 : IF NOT FLAG THEN K=93 


288 NEXT K 
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285 ? 

2390 REMXXPRINT SORTED LISTxXx 

308 PRINT :PRINT 

318 FOR K=@ TO 10 

320 : PRINT AS$CK)I 

330 NEXT 

34@ END 

REPEAT. . .UNTIL and FOR. . .NEXT loops may also be nested. Note the use of 
indents (which need colons at the beginning of the line to stop the Oric 
stripping off leading spaces) to help make the loop structure of the program 
clear. 


i@ REM Indented Loops 
20 PRINT "ORIC LOOPS" 
38 FOR F=1 JO 3 


40 : PRINT TABCI5+F)3"FOR-NEXT"F 
5@ : PRINT TABC15+F)3"NOW REPEAT" 
6@ : C=1’ sets counter 

7Q : REPEAT 

82: PRINT TABCIS+F+C)"REPEAT "C 
90 : C=C+1 

100 : UNTIL C>2 


110 = PRINT TABC1S+FIJ"OUT OF REPEAT" 
128 : PRINTTABCIS+FI"NOW NEXT F" 
130 NEXT 


There is an important programming point to note with regard to both 
REPEAT. . .UNTIL and FOR...NEXT loops. They must only be exited cor- 
rectly, by satisfying the exit condition. Jumping out of a loop with a GOTO 
will leave the address of the loop on the stack, and if you do it repeatedly, 
the stack will fill up and you’ll get an >0UT OF MEMORY ERROR. FOR. . .NEXT 
loops can be exited by setting the loop variable to a value value that will 
satisfy the exit test: 


2 PRINT “ENTER DATA; ENTER -999 TO END" 
1@ DIM AC28):DIM DC28) 

2@ FOR F=1 TO 20 

3@ INPUT ACF) 

48 IF ACFJ=-999 THEN ACFI=O:F=21:GOTO 60 
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9@ LET D(FIJ=ACFIX31 
6@ NEXT F 
7@ PRINT"DATA INPUT ENDED" 


The entry of the dummy or sentinel value which terminates data entry 
satisfies the condition at line 40, which resets the array element to @, sets F 
to 21 and then passes control to line 60. Since F is greater than 20, the loop is 
terminated. Such a use of the GOTO instruction, passing control forward ina 
program to bypass blocks of program lines is held by the purist (and, some 
would say, authoritarian, if not neo-fascist) programming gurus to be the 
only time use of GOTO is to be condoned. The middle path is advised for our 
readers. 

REPEAT loops may be similarly terminated by the use of flags, originally 
set to TRUE or FALSE prior to the loop, and inverted when an exit condition is 
met. A GOTO may also be required if code is to be bypassed. There is, 
however, another option open for the programmer, although it is again of 
dubious virtue in the eyes of some structured programming fanatics. This is 
to use PULL, which takes the top address off the stack, and enables a GOTO 
jump out of a loop to be coded with immunity, if not satisfaction, since it 
must be admitted even by the most liberal of us that it’s habitual use is not 
good practice. 


1@ REM xxx PULL xxx 

28 A=9 

328 REPEAT 

4@ B=A 

98 REPEAT 

6@ PRINTB; 

78 B=B-] 

8@ IF B<@ THEN PULL :GOTO 188 

3@ UNTIL B=2 

108 A=A-1 

118 PRINT 

12@ UNTIL A=-5 

Conditional tests can involve more than one condition, combined (using the 
logical operators AND, OR and NOT). We can, for example, have a line which 


reads: 
IF N<10 AND A=B THEN... 


The Oric will check the two conditions separately, and then check whether 
the combination of the two is true, according to the truth tables for AND, OR 
and NOT. AND works much as in English, in that IF condition 1 is TRUE AND 
condition 2 is TRUE THEN the combination of the conditions is also TRUE. If 
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either condition is FALSE, the combination is FALSE. The following program 
produces the truth table for AND. 


10 LET LC1J=TRUE 

20 LET LC2)=FALSE 

3@ LET L$C1J="TRUE" 
4@ LET L$(2)="FALSE" 
3@ FOR K=1 TO 2 

6@ : FOR H=1 TO 2 


70: PRINT L¢$CKJ" AND "L$CHJ"="; 

BQ : IF LCK) AND LCH) THEN PRINT 
LeCi) ELSE PRINT L$C2) 

90 : PRINT 

100 + NEXT H 

11@ NEXT K 


Again, the program has been laid out so that structure is clear. Since the 
Oric uses numeric values for TRUE and FALSE, we can utilise these in 
numeric expressions. The modified line 80 in the program below uses the 
value ( —1 or @) that the Oric derives from the AND expression, plus 2, to 
give the appropriate array subscript (1 or 2) for L$. 


1@ LET LC1J=TRUE 

28 LET L€2)=FALSE 

3@ LET L$C1)="TRUE" 
40 LET L$(C2)="FALSE" 
38 FOR K=1 JO 2 

68 =: FOR H=1 TO 2 


78 : PRINT LStk2” AND) SOSt hes 
BQ : PRINT L$C2+CLCKJAND LCHIJ I) 
90: PRINT 

180 + NEXT H 

11Q@ NEXT K 


Take care with the complex brackets. The best way to check that you 
haven’t left one out somewhere is to count left and right brackets across the 
expression, and check that there are the same number of each. 

An expression using OR returns a value of TRUE if either of the conditions 
it joins is TRUE, and likewise if both are TRUE. Only if both are FALSE does it 
produce a FALSE result. NOT placed before a condition reverses TRUE and 
FALSE values. 

Multiple conditions can be combined, using both OR and AND. Here’s an 
example: 
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1@ LC1IJ=TRUE 

20 LC2)=FALSE 

380 L$C1)J="TRUE" 

48 L$C2)="FALSE" 

5Q@ FOR K=1 TO 2 

6@ FOR H=1 TO 2 

7@ FOR J=1 TO 2 

8@ PRINT L¢$CKJ" AND "L$CHI" OR "LECJI" 

Lo 3 

3@ PRINT L$C2+CLOK) AND LCH) OR LCJI)) 

1Q@8 PRINT 

110 NEXT =NEXT :NEXT 

As contrast to the earlier programs, notice how much more difficult it is to 
read this program, in the absence of LETs, indents and loop variable names. 
Even this is better than the sort of code often seen, which is written as 
compactly as possible. Here’s the same program in condensed form: 


1@ LC1J=TRUE :LC2)=FALSE :L$(1)="TRUE" :L$ 
(2)="FALSE":FOR K=1 TO 2 

2@ FOR H=1 TO 2:FOR J=1 TO 2:PRINT L$C(K 
J" AND "L$CHI" OR "L$CJI" IS "3 

30 PRINT L$C2+(LCK) AND LCH) OR L(J))): 

PRINT =NEXT NEXT :NEXT 

Brackets can be used with multiple conditional expressions to ensure that 
the meaning you intend is understood by the Oric. Try bracketing the first 
two expressions, and then the second and third, running the program each 
time to see the different interpretation this gives. 

The use of conditional GoTOs can be enhanced using an ON. . .GOTO 
statement. ON is followed by a variable or expression, which gives an integer 
value, defining which of the line numbers following the GOTO statement is 
activated: 

1@ INPUT“ENTER 1,2 OR 3,PLEASE" 5N 

20 ON N GOTO 159, 208, 388 

148 REM 

15@ PRINT "LINE 15@ FROM N=1":GOTO 18 
139@ REM 

208 PRINT "LINE 28@ FROM N=2":GOTO 18 
298 REM 

3@@ PRINT "LINE 38@ FROM N=3":GOTO 19 
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ON may also be used with the last program structure we are going to 
introduce, the GOSUB. . .RETURN format. The GOSUB (line number) instruc- 
tion acts like a GOTO, in that it transfers the program control to the specified 
line number. However, unlike GOTO, the GOSUB instruction stores the 
current address before jumping. The address is placed on the stack and, 
upon encountering a RETURN statement, program control is RETURNed to 
the statement following the GOSUB call. The program below illustrates the 
principles: 


1@ REM xxxX GOSUB xxx 

2@ CLS:REM GET NUMBER 

3@ UP=9:LO=1:GOSUB 1080 

4@ REM CALL MENU ROUTINE 

398 X=A:GOSUB 2000 

6@ REM ARE YOU BORED 

7@ GOSUB 3088 

8@ IF BO THEN STOP ELSE GOTO 20 

3@ END 

18@@ REM NUMBER INPUT ROUTINE 

1018 PRINT"TYPE IN AN INTEGER BETWEEN" ; 
LO;"AND" ;UP:PRINT 

1820 REPEAT 

1838 PRINTCHR$C1135: INPUT A$ 

1848 A=VALCAS$) 

1@5@ UNTIL A>=LO AND A=<UP AND A=INTCAD 
1@6@ RETURN 

2@0@ REM MENU & OPTION ROUTINES 

201@ PRINT:PRINT SPCC16) 5CHR$C1239) 5 "Xxx 
MENUKXX" 

2028 PRINT :PRINTCHR$(130@);"PRESS 1 FOR 
FACTORIALC" 5X3")" 

2038 PRINT :PRINTCHR$(13@);"PRESS 2 FOR 
"3X3" SQUARED" 

2048 REM USE NUMBER ROUTINE TO SELECT 
2050 UP=2:LO=1:GOSUB 1800 

2868 ON A GOSUB 2100, 2200 

2878 RETURN 

2108 REM CALCULATE FACTORIAL BY REPEATE 
D ADDITION 
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2118 Y=X:S=1:GOSUB 25280 

2128 PRINT - "FACTORIAL, "343." 1S°"SS8 

213@ RETURN 

2208 REM CALCULATE SQUARE 

221@ PRINT "SQUARE OF "3X3" IS "3Xxx 
2228 RETURN 

2508 REM RECURSIVE SUBROUTINE 

251@ IF Y=@ THEN RETURN 

2520 S=SkKY:Y=Y-1 

2538 GOSUB 258 

2548 RETURN 

3808 REM ARE YOU BORED 

3010 PRINT "ARE YOU BORED CY/N)?" 

3020 IF KEY$="Y" THEN BO=TRUE: GOTO 385 
@ ELSE WAIT 1 

3038 IF KEY$="N" THEN BO=FALSE:GOTO 385 
Q 

304@ GOTO 3022 

3058 RETURN 


While we are on the subject of subroutines, perhaps we should take a look at 
why good programmers are so keen on using them. Well, firstly there are 
the obvious advantages of saving space by keeping what would otherwise be 
oft-repeated program segments in one place. This can also save pro- 
gramming time since you don’t have to continually retype the same lines at 
each desired occurence. OK, so we’ve seen the obvious gains to be made in 
terms of time and space, let’s progress to the subtler, more profound 
advantages to be gained, in terms of philosophy and aesthetics, from using 
subroutines. 

Many people are, in fact, so enamoured of these methods that they almost 
always emphasise the more intellectual aspects of structured programming, 
usually at great cost to the clarity of their arguments. Pragmatically, 
though, it is worth trying to ‘structure’ your thoughts, at least, and think of 
the task to be performed in terms of smaller, simpler subtasks. This way of 
thinking allows you to write short sections of code which are free of 
confusion and complete in their own right, although of course ‘no sub- 
routine is an island’. 

When you come back to a program some time after its inception it can be 
very awkward to track down the exact line in which something happens 
if the programming task was originally conceived as an amorphous, 
interminable and interleaved mass. Getting back to practicalities, it doesn’t 
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really matter whether you make these subsections of code into fully fledged 
subroutines or not. In fact, it is arguably better not to do so if they are only 
used once in the whole program. Really all that can be said about the merits 
or otherwise of structured programming is that you should have a clear idea 
of what you are doing at each stage in your program and keep unrelated 
tasks in different lines so that you can figure it out later. Keeping your 
sections or modules well separated and clearly marked with REM statements 
will help you develop into a less frustrated programmer. 
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One of the great virtues of BASIC is that it allows us to state what we wish to 
be done and, providing we put the right instructions into a program, we 
don’t have to worry about how it’s done. However, there are instructions in 
BASIC which allow us to interact directly with the Oric’s memory. We first 
need to know what’s in the memory and how it’s arranged before we can do 
anything with it, so here goes. 

You first need to know something of the binary number system. This 
uses sequences of @’s and 1’s to represent numbers in a computer’s memory. 
Each memory location can be thought of as a bank of eight switches, which 
may be on (set), representing a 1, or off (unset), representing @. Each 
location thus holds a sequence of eight Binary digITS or bits, and the eight 
together make up a byte. Within a byte the bits are numbered @ to 7 right to 
left, and each bit, when set, holds a value twice that of the one to the right of 
it. Bit @ can be either 0 or 1, and represents those values, whereas bit 1 
represents 2 if set, and zero if unset. The value held in the sequence of eight 
bits is the sum of the numbers represented by the set bits. The largest value 
that can be held in a sequence of eight bits is 255, and the smallest, of 
course, is zero: 


Bit 7 6 5 4 3 2 1 0 
Binary 1 1 1 1 1 1 1 1 
Value 128 64 32 16 8 4 2 =255 decimal 


The binary number 01101101, for example, would be: 


Bit 7 6 5 4 3 2 1 0 
Binary @ 1 1 0 1 1 0 1 
Value @ +64 +32 +0 +8 +4 +0 +1 =109 decimal 


The binary system works in powers of two (not powers of 10, as our usual 
decimal system does). This can be illustrated by the following program. 

1@ REM Powers of 2 

28 FOR POWER=8 TO 7? 

3@ PRINT "2 to the power" ;POWER5"=" 52¢P 
OWER 

4@ NEXT POWER 
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Here’s a program that converts binary to decimal, and vice versa: 


10 REM Binary7Decimal conversion 

1S? XXKKKKKKKKKKKKKKKKKK 

16? MAIN PROGRAM 

17 > XXXXXKKKKKKKKKKKKKKK 

28 PRINT"PRESS B FOR BINARY TO DECIMAL" 
3@ PRINT "PRESS D FOR DECIMAL TO BINARY 
4@ GET M$:IF M$<>"D" AND M$<>"B" THEN 4 
Q 

5Q@ IF M$="D"THEN GOSUB 5@@ ELSE GOSUB 1 
1414) 

6@ PRINT “ANOTHER NUMBER ? CY/N) 

7@ GET M$:IF M$="Y"THEN CLS :GOTO2@ ELSE 
END 

BQ > XKXKKXKKKKKKKKKXKKXKXKX 

85 ?XXXEND MAINXXXXXXXXX 

SQ > XXXXKKKKKKKKKKKKKKKK 


490° 

SOQ > XXXXKKKKKKKKKKKKKKKKKKKX 
301’ DECIMAL TO BINARY 

302 ? SUBROUT INE 

SOB? KXXKKKKKKKKKK KKK KKK KKK KKK 
304 ? 


91@ CLS:INPUT"ENTER A DECIMAL NUMBER" 5N 


92@ PRINT:PRINT N%¥3 :B$="" 


200: REPEAT 

04@ =I=INTCON%72) 

950 : BIT=N%-2x] 

060 : IF BIT=@ THEN B$="@Q"+BS$ELSE 
B$="1"+B$ 

978 : N«=] 


98@ UNTIL N*=8 

9398 PRINT "IS "BS" IN BINARY" 
608 RETURN 

618? 

620 ? XXXXXXXENDSUBXXXXXXKXXKXX 


51 
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638 ? 

LQOQG > XXXKKKKKKKKKKKKKKKKKKKKK 
1001 ? BINARY TO DECIMAL 
1882 ° SUBROUT INE 

1OO3 ? XXXKKKKKKKKKKKKKKKKKKKKK 
1004 ? 


1018 CLS: INPUT"ENTER A BINARY SEQUENCE" 
;BS 

1820 N=@:P=@ 

1030 FOR J=LENC(B$)TO 1 STEP~-1 


1040 : BIT$=MID$(B$,LENCB$)-P, 1) 
1050 : N=N+VAL CBIT$)X2°P 

1060 : P=Pt1 

1@7@ NEXT J 


188@ PRINT BS" =DECIMAL"N 

1898 RETURN 

1188 ? 

1110 ? XXXXXXXENDSUBXXXXXKXXKKKX 


Notice that the program is structured with a main program module, from 
which the appropriate subroutine is called according to the user input after 
the menu has been presented. The program also shows how a listing can be 
made more readable by the inclusion of REM statements to break up the 
program into its modules, and the use of indents within loops. The decimal 
to binary routine uses a REPEAT. . .UNTIL loop to reduce the number by a 
power of two each time through the loop, assigning a @ or 1 to the binary 
string B$ according to whether a remainder is present or not after division by 
two. The loop terminates when N%=0 and there’s no more number to 
work with. The binary to decimal routine uses a FOR. . NEXT loop to check 
each bit of the binary string in turn from the right, increasing the power of 
two (P) by which the vALue of the bit is multiplied at each pass through the 
loop. 

The organisation of the Oric’s memory is shown diagrammatically in 
Appendix 5. The 48k and 16K versions have the same arrangement of 
memory, apart from a missing chunk in the middle of the 16K memory, 
between #4000 and #C000 hex (16384 and 49152 decimal). Referring to 
this diagram, and using your trusty Oric to convert hexadecimal (PRINT 
#4000, etc.), you'll see that the top 16384 locations, above #CQ0Q0, are 
Read Only Memory (ROM) on both the 16K and the 48K machines. This is 
where the BASIC interpreter and arithmetic routines are held in permanent 
fixed memory stored in the ROM chips of the Oric. 
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The ROM memory cannot be altered (written to), although, as its name 
implies, it can be read from so that we can find out what it contains. The 
contents of this area of memory are machine-code instructions and data, 
and the process of understanding the contents of memory when read out 
(called disassembly, in contrast to assembly, which you can investigate in 
Chapter 10) is a complex one. 

The rest of the Oric’s memory consists of Random Access Memory, 
which can be both written to and read from, so that we can insert into any 
location a number between @ and 255, and also discover the value contained 
in any location. The number stored in a location can represent part of a 
number, a BASIC keyword, a character code, or part of an address. If you’re 
programming in machine code, it may also be a machine-code instruction. 
The interpreter stored in ROM decides what any specific number represents 
according to context and placement in memory. 

Starting from the bottom of RAM we have five pages of memory, each of 
256 locations, dedicated to specific purposes. The first page (Page Zero) 
contains information on the current state of affairs within the Oric needed 
by the 6502 Central Processing Unit (CPU) chip, such as the addresses of 
the start and end of the BASIC program, the current cassette file name, and so 
on. 

Page | is a stack for the use of the arithmetic routines, storing numbers 
and intermediate values involved in the current calculations. 

Page 2 stores run-time or system variables which hold values needed to 
keep track of the operation of BASIC such as cursor positions, CAPS/lower 
case, keyclick on/off, etc. 

Page 3 is dealt with in Chapter 11 since it holds the address for 
Input/Output between the Oric and the external world and the addresses 
for transfer of data between the various dedicated chips of the Oric (see the 
diagram in Appendix 11). 

Page 4 addresses between #0400 and #0420 are available for the user’s 
machine-code programs, and the rest of the page is reserved for system use. 

Addresses #0500 upwards are the memory locations for storage of your 
BASIC programs and variable values. We’ll look at how this section of 
memory is organised below. The BASIC program grows upwards as it 
lengthens, taking with it the variables area which sits on top. 

Locations above #9800 (#1800 for the 16K Oric) store the character sets 
and the screen display. The TEXT screen (which is the one that appears 
when we switch on and is the one which we’ve been using) takes much less 
space than the HIRES (high resolution) screen. The different screen modes 
will be dealt with in Chapter 7, where we approach the whole question of 
graphics and screen displays. However, we’d better say here that, to enable 
switching between the two modes, the whole area above #9800 (#1800 on 
the 16K) is reserved. If only TEXT output is required on screen in the course 
of a program the GRAB command can be used to release the area from #9800 
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to #B400 (#1800 to #3400 on the 16K) for use by BASIC. This is reversed by 
the RELEASE command when the HIRES screen is required once again. The 
standard and alternate (LORES 1) character sets are stored in two sequences 
of memory locations, one of 1024 bytes, storing the 128 characters for the 
standard character set, and one of 896 bytes, holding the 112 characters of 
the alternate set. Each character is stored as a sequence of 8 bytes, which 
give the bit pattern defining the pattern of dots displayed on the screen. 
Chapter 7 explains how this works. All characters are stored, although the 
non-PRINTing ones have a null number stored in their character definition 
bytes, just to make sure that they don’t PRINT. 

Characters stored in this area may be redefined by the user to form any 
special characters required in a program. This is accomplished by writing 
different values into the addresses in memory which form a specific 
character. The screen memory is also covered in Chapter 7. Above the 
screen memory storage is an area of spare memory available for machine 
code or Input/Output use. 

The BASIC instruction to read the contents of a byte is PEEK. The format is 
PEEK(addr.), where addr. is a hexadecimal or decimal number specifying the 
address. PEEK returns the value stored in the byte as a decimal number. 
PRINT PEEK(1280), for example, will PRINT the value contained in the byte at 
memory location 1280. Precisely the same result is obtained by PRINT PEEK 
(#500). 

POKE writes data to a byte of memory. POKE addr., i puts the value of i (0 to 
255) into the byte at the memory location specified by addr. POKE 1600, 134 
puts the value 134 into location 1600. The values may both be specified in 
hexadecimal notation: POKE #640,#56, on the V1.1, but on the V1.0 only the 
first (address) integer can be specified in hexadecimal, the second (data) 
integer must be in decimal. 

Integer values up to 65535 can be stored in two bytes, and the Oric uses 
this system for address locations which need to be stored in memory. The 
two bytes hold the value in the form (value of first byte) plus (256* value of 
second byte). There are instructions in BASIC for reading and writing such 
values directly, without calculation. These are DEEK(addr.) which returns 
the value stored in addr. and addr.+1, and DOKE addr.,i which places the 
integer value i (0 to 65535) into the byte specified by addr. and the following 
byte. 

Using these instructions, we can take a look at how a BASIC program is 
stored in the Oric memory. The program below will PRINT the memory 
address, the PEEKed value contained in the byte specified by that address, 
and the character corresponding to that value if the character is PRINTable. 
Line 40 merely breaks up the data into pages that will fit on the screen. Line 
60 right justifies the number contained in the byte using spc, which will 
work consistently (unlike TAB) on both V1.0 and V1.1 Orics. 


Down memory lane 55 


1@ REM PROGRAM STORAGE 

20 LET MEM=#580 

38 CLS:FOR K=1T020@ 

4@ IF INTCK“25)=K“25 THEN PRINT"PRESS K 
EY FOR MORE" =GET A$ 

5@ N=K+MEM:M=PEEKCN) *‘L=LENCSTRS$(M) 9) 

68 PRINT N;SPCC10-LJ 5M; 

7@ IF M<129 AND M>32 THEN PRINT SPCC4); 
CHR$(M)J ELSE PRINT" " 


88 NEXT K 
The display for the first three screens produced is as follows: 

1281 23 

1282 ) 

1283 12 

1284 Q 

1285 157 

1286 32 

1287 82 P 
1288 82 R 
1289 73 0 
1292 71 G 
1291 82 R 
1292 65 A 
1293 2? M 
1294 32 

1295 83 S 
1296 84 T 
1297 73 0 
1298 82 R 
1299 65 A 
1300 71 G 
1301 69 E 
1302 Q 

1383 38 & 
1304 ba) 


PRESS KEY FOR MORE 
1385 20 
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1386 
1307 
1388 
1383 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
S17 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 


1329 
PRESS 


1338 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 


4) 
15@ 
32 
7? 
69 
7? 
212 
35 
33 
48 
48 
Q 
34 
se) 
30 
Q 
148 
38 
141 
32 
v5) 
ra 
43 


195 
KEY FOR MORE 

38 
48 
48 

Q 
182 

i) 
40 

Q 
153 
32 
215 
40 
a2) 


=m 


Qo Ul + 
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1343 287 
1344 fe) 2 
1345 33 se) 
1346 41 J 
1347 212 
1348 7d K 
1349 207 
1358 30 2 
1351 33 se) 
1352 32 
1353 201 
1354 32 


You might find this a little confusing, but all will be made clear! The first 
address PEEKed is #501 (decimal 1281), following the zero stored in address 
1280, marking the start of the BASIC program area. The value stored in 
locations 1281] and 1282 is a pointer to the memory address containing the 
start of the next program line. If you enter the command PRINT DEEK(1281) as 
a direct command with this program in memory, you will get 1303 on 
screen. Looking at this location, you will see that it follows a zero in address 
1302 which is used by the Oric to separate program lines. Bytes 1303 and 
1304 are the first two bytes of line 20, forming the pointer to line 3@. All the 
program lines are linked by these pointers, and the Oric can ‘skip’ along the 
program lines to find the line specified by a GOTO or GOSUB statement with 
maximum efficiency. 

Addresses 1283 and 1284 hold a two-byte value in the same format (byte 1 
+ 256*byte2) which gives the line number, in this case 10. Location 1285 
holds the value 157, which is the tokenised form of REM. The Oric stores 
each BASIC keyword it recognises when the program line is placed in 
memory in a form that only occupies a single byte of memory. Appendix 12 
gives a list of BASIC keywords and their token values. 

After the tokenised REM we find a space (character code 32) followed by 
the character codes for PROGRAM, then a space, then MEMORY. The zero 
terminates the line. Addresses 1303 and 1304 store the pointer to the next 
line, and 1305/6 the line number. Although the & character is displayed, the 
value stored in the byte is a numeric value, not a character code, which is 
clear (to the Oric) from the context. Reference to Appendix 12 will tell you 
that the value of 150 stored at location 1307 is the token for LET. This is 
followed by the variable MEM in the next three locations. Address 1312 
holds 212, the token for the equality operator, i.e. the equals sign ‘=’ when 
stored as the arithmetic function. The Oric converts the character into the 
operator for insertion into memory, and then converts back to the character 
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form when a program is LISTed, just as it does with BASIC keywords. The 
tokens for the arithmetic operators are: 


212 Equality 

204 Addition 

205 Subtraction 
206 Multiplication 
207 ‘Division 

208 Exponentiation 


> * 1] + Il 


Addresses 1313 to 1316 store #500, followed by the zero signifying the end 
of the line. 

We'll leave it to you to work through the rest of the listing. If you want to 
find out the keyword corresponding to a particular value, you can use POKE: 


1@ REM 

2@ INPUT"ENTER TOKEN VALUE" j;N* 
30 POKE 1285,N*% 

4@ LIST 


Address 1285, which is occupied by the token for REM, is POKEd with the 
INPUT value. When line 4@ LisTs the program, the Oric will convert the 
POKEd value into the PRINTed form. A further illustration of the value of 
POKE is the simplicity with which we can change the PRINT instructions of 
lines 40, 6@ and 70 of the memory display program into LPRINT instruc- 
tions. This was how the listing of memory contents above was produced. 
The extra lines 90-140 added to the program, as given below, will check 
through the memory locations storing the program, replacing each occur- 
ence of a PRINT token (value 186) with a LPRINT token (143). The 
REPEAT ... UNTIL loop terminates when the next two locations are both 
zero, which is the marker for the end of the BASIC program, using DEEK. 


98 REM CHANGE PRINT TO LPRINT 

18Q@ M=#500:C= 

11@ REPEAT 

12@ M=M+1 

13@ IF PEEKCMJ=186 THEN POKE M,143 
148 UNTIL DEEK(M+1)=0 


As another example of DEEK and DOKE, here’s a simple renumbering 
program, which will renumber lines in given steps, starting at a specified 
line. It does not renumber the destination line numbers of GOTO and GOSUB 
destinations. This is not too difficult to do, but requires more than one pass 
through the memory area. 
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1@ REMXXRENUMBERXX 

11 ?Program starts line 6000. 

12 ’Does NOT renumber GOTO or GOSUB 

13 ’Destinations.Note these BEFORE 

14 ?Renumbering a program 

6G8@G MEN=#501 ’First line pointer 
68018 INPUT"What existing line to start 
renumber" ;BEGIN 

60020 INPUT"Change this to line number" 
iNLIN 

6883@ INPUT"Increment lines in steps of 
“SINC 

60048 REPEAT 

68050 LINE=DEEKC(MEMN+t2):’Current line nu 
mber 

6@@6@ IF LINE <BEGIN THEN 60882 

60870 DOKECMEM+2),NLIN:NLIN=NLIN+INC 71 
nsert new Line number and increment 
60080 MEM=DEEKC(MEMN) ’Get start next Lin 
e 

60030 UNTIL DEEK(MEM+2)=68880’Do not re 
number RENUMBER routine 


Above the BASIC program are stored the variables used within the program 
and their values. This is the area which is reset when CLEAR is used. The 
variable names are stored in two bytes (the two characters of a variable name 
that the Oric recognises), with the type of variable identified by the 
modification of the ASCII code of the characters of the name. Real numeric 
variables are stored as unmodified character codes, integer variables have 
128 added to each character code, and string variables have 128 added to the 
second character only. Single character names have zero (+ 128 if string or 
integer) stored in the second byte. The order in which simple variables are 
used in a program is determined by the sequence in which they are assigned 
in the program, and arrays are stored after the simple variables in the order 
in which they are DIMensioned. 

Following the name of numeric variables there are five bytes which, in 
the case of real numeric variables, hold the number in a format where the 
first byte holds an exponent, and the remaining four the mantissa. The 
format is known as five-byte floating point format, which functions in 
binary much as exponential notation does in decimal. Integer variables are 
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stored in the first two bytes of the five, in standard two-byte form. The 
other bytes hold @. String variables are stored with five bytes following the 
variable name. The first byte holds the length of the string, and the second 
and third are a pointer to the address in memory where the string of 
characters are held. This will be an address within the BASIC program listing 
if the string variable holds a literal string defined within the program. If it is 
a calculated string, or is redefined in the course of a program, the resultant 
string is stored at the top of the variables area, immediately below the 
character set areas, and the pointer will indicate this location. The length 
value stored in the first byte after the string name indicates how many bytes 
are to be read, starting at the address given by the pointer bytes. Two 
unused bytes follow the pointer. 

Arrays have the same types of names as simple variables, but these are 
followed by a byte specifying the total number of bytes required to store the 
array data (including the array name). Two bytes then hold the number of 
dimensions in the array, followed by two bytes for each of the dimensions, 
specifying the number of elements for each dimension. Numeric arrays 
have five bytes for each element, stored in sequence, whereas integer arrays 
have only two bytes in each element. Each string element in an array has a 
length byte, and a two-byte pointer. You can access the start of the variables 
area and display the contents to see how the data is stored with a program 
similar to the one we used to probe the BASIC program storage. Set some 
variables, find the start of the variables area with DEEK(#9C), and you can 
start PEEKing. The two bytes at locations #9C and #9D are a system 
variable holding the address of the start of variable storage. Similarly, 
DEEK(#9E) will provide the end address of the variables area, and DEEK(#A2) 
will give you the address of the bottom of the string variables area. 

That concludes our trip along the byways of the Oric memory. If you 
enjoyed the jaunt, you can POKE around some more with the aid of 
Appendix 9. Our next chapter is concerned with putting the contents of 
memory on to tape for safe storage, and freeing you from a continually 
plugged-in Oric. 


6 Tapes and 
Data 


As soon as you switch off your Oric’s power supply any program held in 
memory is lost. This is because the RAM memory which stores the current 
program and variables is ‘volatile’ — i.e. when the machine is turned off, the 
RAM memory and CPU registers are cleared, ready for a fresh start when you 
next power up your Oric. 

It is obviously impractical to type in a program each time you want to use 
it (a fifty line program will take you the best part of an hour), and thus some 
method of ‘off-line’ storage is clearly required. The cheapest and most 
widely used means of storing a program is on cassette tape. Now, whilst 
cassette storage is neither the fastest nor the most reliable medium for 
preserving your programs, it is considerably less expensive than disc-based 
systems, and the Oric-1] has a number of features which make cassette 
handling more reliable and flexible than usual. 

To save Oric programs on cassette you will require both a cassette 
recorder and an appropriate lead to connect it to your computer. The choice 
of recorder is important, but this isn’t to suggest that it should cost you a 
great deal of money. In fact it is preferable to use a cheap mono recorder (if 
you wish to use an existing stereo machine, make sure that you only use a 
single channel), and the dedicated data recorders available for around £35 
from the high street chainstores are ideal for the task. Your life will be made 
considerably easier if you choose a machine with a tape-counter, because 
you can waste a great deal of time searching around for programs if you have 
no means of establishing exactly where they are on a tape. 

Try to stick with the same recorder as far as possible, since you may run 
into problems when you try to load programs that were saved on another 
machine. (Slight differences in the alignment of playback heads can make a 
well-recorded cassette unusable when it is replayed on a different machine.) 

The type of lead you require depends on the kind of cassette recorder you 
decide to use. The Oric itself needs a 3 or 7-pin DIN plug which fits into the 
cassette socket at the back of the machine. A 3-pin DIN to 3-pin DIN lead is 
supplied. The majority of data recorders use a single DIN socket which 
serves for both recording and playback, and the plug you’ll need under 
these circumstances is exactly the same as for the Oric end of the connec- 
tion. However, some mono cassette players have only an EAR and MIC 
socket, which makes matters slightly more complicated. In this case you’ll 
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need separate jack-plugs for input and output (i.e. for playback and 
record), and it is wise to mark the individual plugs clearly so that you don’t 
get them mixed up. The various types of lead are usually available from 
computer stores, but if you run into difficulties your local hi-fi shop can 
often be persuaded to make up a lead for you. 

It is far better to use short-length computer tapes (C1@s or C15s) from a 
reputable manufacturer than full-length C-90s or C-6@s. Apart from the 
fact that it takes too long to locate a program on a C-90 (tape-counter or 
not), the longer (and thinner) tapes tend to stretch much more easily than 
short computer tapes, and are thus more likely to corrupt your recording. 

The Oric has two main commands related to cassette handling: CSAVE 
and CLOAD. We'll first take a look at the formats and facilities that are 
available on all versions of the Oric-1, before going on to discuss the 
substantial modifications that have been made to the V1.1. 

Once you have loaded your new cassette into your recorder, it’s worth 
running it fast forward to the end, and then rewinding, to ensure that the 
tape is evenly and tightly wound. Most cassettes have a short plastic header 
that you can’t record on. Make sure before you start recording your 
program that you have wound the tape past this header. In fact it is worth 
letting the tape run on for 15 seconds or so, since the majority of corrupted 
recordings result from damage to the relatively exposed beginning of the 
cassette, or stretching in the initial few inches of tape. Set your tape counter 
to zero and you’re ready to go. 


To save a program on to tape, follow the sequence below: 


1 Check that the cassette player is plugged in. 

2 Ensure that it is correctly connected to your Oric. The Oric end of the 
connection must be plugged into the cassette port DIN socket, and the other 
end should be plugged into the recorder’s input/output socket if you are 
using a recorder with a DIN socket or the MIC jack-plug should be in the MIC 
socket if you are using a lead fitted with jack-plugs. (In the latter case, the 
EAR plug should be left unconnected to prevent possible feedback loops. ) 

3 Check that you have a fresh cassette in the recorder and that you have 
wound the tape well past the plastic header. 

4 LIST the program that you want to CSAVE on the screen. 

5 Key-in as a direct command: 


CSAVE“FILENAME”,,S 


where “FILENAME” is the name of the program you wish to save. The name 
can be up to 17 characters long, but it is best to keep the name as short, 
relevant and easy to remember as possible. Any characters may be used. 


You'll notice that in the above format the filename in double quotes is 
followed by acomma and an S. The s stands for Slow, and is an optional part 
of the format. The Oric CSAVEs and CLOADs at two different data transfer 
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rates. Without the ,s the Oric automatically assumes 2400 baud Fast mode, 
but if you add ,s the Slow mode is enabled (300 baud). A baud is a transfer 
measurement of bits per second of data. Whilst both formats are reliable, 
you should always take the precaution of making at least one copy of any 
valuable program in the extra safe Slow mode. Let’s continue with our 
CSAVEing sequence: 


6 Press the RECORD and PLAY buttons on your cassette recorder. 

7 Press RETURN on the Oric. The message SAVING FILENAME will appear 
at the top of the screen (on the V1.1. this is followed by the file type B for 
BASIC program). When the program has been CSAVEd, the usual Ready 
message will apear at the current cursor position. Stop the recorder. 


If you have carefully followed the above steps, you should now have a copy 
of your program on cassette. If you are an owner of a V1.0 you are not going 
to be certain that the program has CSAVEd correctly until you have actually 
reloaded it into the Oric. (V1.1 owners have the capacity to VERIFY a 
recording to ensure that the program has been correctly CSAVEd, but more 
about that later.) 


When you want to load from tape any program you have CSAVEd, the 
following sequence should be followed: 


1 Check that the casette recorder is plugged in, that its volume is set at 
around the halfway point, and that the tone control is set to high. 

2 Ensure that the recorder is correctly connected to the Oric. The 
computer’s DIN plug connection will be the same as it was when you CSAVEd 
the program. If you are using the supplied lead or a similar DIN-to-DIN lead, 
it will be connected to the recorders’ input/output socket. If you are using a 
DIN-plug-to-jack-plug lead, the EAR jack-plug should be placed in the EAR 
socket and the MIC jack disconnected. 

3 Using your tape counter, locate the start position of the program you 
wish to CLOAD. 

4 Key in: 


CLOAD“FILENAME”,S 


The filename must be precisely correct and must include any spaces that 
were in the filename when the program was CSAVEd, or the Oric will not 
recognise the program as the one you are trying to load. If you have 
forgotten, or are unsure of the precise filename, you can use the format: 


CLOAD*”’,S 


and the Oric will CLOAD the first program it finds on the tape. Once again 
the ,S has been included in the instruction format, but must only be used if 
the program was actually CSAVEd in the Slow mode. 

5 Press the RETURN key on your Oric. 
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6 Press the PLAY button on your cassette recorder. The Oric will search 
through the cassette until it finds the program “‘filename”’ and while it does 
so the message SEARCHING. . . appears at the top of the screen. When the 
program has been found the message will change to LOADING FILENAME 
(followed by the file type specifier B on the V1.1.) until the CLOADing 
process is complete and the READY message appears. If there is a fault on the 
tape you may well get a FILE ERROR - LOAD ABORTED message appearing on 
the screen. If this happens don’t immediately despair. It could be that the 
volume control on your recorder is set too high or too low, or that the tone is 
set at the wrong level. Before giving up hope, spend some time making 
small adjustments to the controls on your cassette player. If you can get the 
program to CLOAD after these adjustments it would be wise to make another 
copy of the program immediately, just to be on the safe side. 


You have now learnt all that you need to know about the straightforward 
use of the CSAVE and CLOAD commands on the Oric. Now we'll take a look at 
the other cassette facilities available on the machine. 

If you want a program to RUN automatically as soon as it is loaded, you 
must add the following dimension to your CSAVE command: 


CSAVE“FILENAME”,AUTO,S 


Once again, the ,s should only be included if you wish to CSAVE the program 
in the Slow mode. CSAVEd in the above format, the program will RUN as soon 
as the CLOADing process has been satisfactorily completed. AUTO saved 
programs do not require any change in the CLOAD format. 

As well as complete programs, it is also possible to store blocks of 
memory on cassette. This is particularly useful if you want to CSAVE a screen 
display. However, if you use this method to save screen displays, you must 
ensure that the Oric is in the correct mode for the display in question. To 
store any block of memory it is necessary to know the Address at which the 
block starts, and where it Ends. With this information to hand, the memory 
blocks can be CSAVEd with the following format: 


CSAVE“MEMBLOC”’,A#400,E#420,S 


This would CSAVE (in Slow mode) the contents of RAM from locations #400 
to #420. You can use this facility to CSAVE and CLOAD a memory area 
storing a different character set or a machine-code routine. Because the rest 
of the Oric’s memory would be unaffected by this procedure, any BASIC 
program in memory would be protected from the additional routines. The 
areas of memory applicable to saving screens are as follows: 


For the HIRES screen: 


CSAVE“‘filename”’,A40960,E48000 (48K Oric) 
CSAVE“‘filename”’,A8192,E15232 (16K Oric) 
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For the TEXT and LORES screens: 


CSAVE‘‘filename”’,A48000,E49119 (48K Oric) 
CSAVE“filename” ,A15232,E16351 (16K Oric) 


The start Address and End address will accept either decimal or hex- 
adecimal values, and again, ,s may be appended for a Slow saving rate. 
When CLOADed, blocks of memory are automatically loaded back to their 
original memory locations, so the normal CLOAD“FILENAME” is all that is 
required. 


Owners of the improved Oric-1 V1.1. have two other cassette facilities 
unavailable to users of V1.0 machines. The most valuable of these addi- 
tional commands is the VERIFY facility. When you have CSAVEd a program 
and wish to see whether or not the process has been successful the following 
check can be made: 


1 Rewind the cassette back to the beginning of the program you have just 
CSAVEd. 

2 Check that the volume control on your recorder is set at the correct level 
for CLOADing, and that the tone level is high. 

3 Ensure that your lead connections are correct. The Oric’s end of the 
lead should remain in the same socket, the other end should be in the 
cassette input/output socket if a DIN plug, or, if using jack-plugs, the EAR 
jack should be in the EAR socket (with the MIC jack unconnected). 

4 Key-in the following as a direct command: 


CLOAD“FILENAME”,V,S 


(Once again the ,s should only be used if the program was CSAVEd in the 
Slow mode.) The filename may be omitted if you’re certain of the program’s 
position. The computer will begin SEARCHING... in the usual way, and 
when it locates the program it will report VERIFYING FILENAME (plus the file 
type identifier). If the recording has been successful, the message 0 Verify 
errors detected Will appear at the current cursor position. If the recording has 
been unsuccessful (any number other than @ for errors) you must return to 
the operations outlined in step 6 of the CLOAD procedure given above, if a 
second try doesn’t work. 

The other additional CLOAD command available to V1.1 owners is the 
Join facility. This enables you to Join a second program on to the end of a 
program already typed or CLOADed into your Oric. The format for this 
operation is as follows: 


CLOAD*“FILENAME”,J,S 


All that this feature actually does is to prevent the Oric from clearing the 
memory as it normally does when any CLOAD format is used, and insert the 
new program lines sequentially into memory. If you wish to Join a second 
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program in this way, you must ensure that all the line numbers in the 
second program are higher than the highest line number in the first. If this 
is not the case the final product will fail to RUN, since the line numbers in the 
second program do not ‘interlace’ with those in the first, and the second 
program is merely inserted (above the existing program) into memory. The 
joined programs must fit within the available memory capacity. 


V1.1 users have access to an additional tape file capability. STORE and 
RECALL allow arrays to be saved onto tape and read back into a program, 
thus providing a means of passing data from one program to another. 
Within a program, the contents of an array can be defined, and then placed 
as a cassette file onto tape. Any type of array may be STOREd. The format 
for STORE is: 


STORE V,“FILENAME”,S 


where V is the name of the array to be stored (A$, for example, for an array 
A$(3,4), G for an array G(30), etc.). 

The procedure for using the instruction is the same as that for CSAVE, and 
the fast save (2400 baud) will be used as default if the ,s is omitted. The 
message SAVING FILENAME appears on the status line, followed by a letter 
specifying the type of array: R for Real floating point number arrays. I for an 
Integer array, and Ss for string arrays. 

RECALL will load back from tape the contents of an array previously saved 
on tape using STORE and the procedure is the same as when using CLOAD. 
The array to store the RECALLed array must have been dimensioned prior to 
using RECALL, or an OUT OF DATA error occurs. The array size must be the 
same as (or greater than) the original array and of the same type (integer, 
string or real). RECALL may be used within a program, or as a direct 
command, but if the latter, no instructions which reset the variables stored 
can be used (CLEAR, RUN, etc), or the stored array values will be lost. 

The format for RECALL is: 


RECALL V,“FILENAME”,S 


where V is the name of the array in which the RECALLed data is to be placed. 
This does not have to be the same name as that of the original array which 
was STOREd, but must be of the same type. Try the example programs 
below to illustrate this. Note that whilst (in the RECALL example) the array B 
was DIMensioned as B(20), the same size as the array A(20) used in STOREing, it 
could be DiMensioned larger. Try changing line 10 in the program to read 
DIM B(25) and RECALL the array again. 

Slow (as in the format above, using ,S) or fast (omitting ,S) speed data 
transmission from tape can be specified. The same speed must also have 
been used by the STORE instruction. 
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10 DIM AC28) 

2@ FOR K=@ TO 20 

38 LET ACKJ=2*K 

4Q NEXT K 

58 PRINT"PRESS A KEY WHEN READY TO STOR 
Ee" 

6@ GET A$ 

7@ STORE A;"ARRAYFILE" 

88 PRINT"ARRAY NOW STORED" 

3@ END 


1@ DIM B20) 

28 PRINT "SET RECORDER TO PLAY;PRESS A 
KEY TO":PRINT “RECALL ARRAY DATA" 

38 GET AS 

4@ RECALL B; "ARRAYFILE" 

38 CLS 

60 FOR L=8 TO 20 

7@ PRINT BCL) 

8@ NEXT L 

3@ END 


Care of cassettes 


If you’ve taken the trouble to develop a program and CSAVE it on cassette, 
it’s worth giving some thought to ensuring that your copy of the program 
lasts for as long as possible. It should be stressed that if a tape is left unused 
for as little as a month there is a danger that when you come to use it you will 
find the copy has been corrupted. However, there are steps which can be 
taken to minimise the risk: 

Do not record on the first 10-15 seconds of a cassette. Most of the 
problems of stretching and coating loss occur in this section of the cassette. 

When a cassette is not in use always ensure that it is returned to its case. 

Never leave a cassette on top of a TV set or any other electrical appliance. 
The electromagnetic fields generated by such equipment may corrupt the 
signals stored on the tape. 

Never touch the tape surface, and always make a point of fully rewinding 
the cassette after use so that only the plastic header is exposed. 

New tapes should always be run through and then rewound back to the 
beginning before any recording is attempted. This will ensure an even 
tension. 
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Make sure that you clean the record and playback heads of your cassette 
recorder on a regular basis. This should really be done after every two or 
three hours’ running time. Invest in a head demagnetiser, and demagnetise 
the heads of your recorder after every twelve hours’ or so running time. 

Once you have recorded a program, make sure that the program filename 
and its tape-counter reading is accurately documented on the cassette and 
the cassette case. Ensure that you have noted which mode the cassette was 
recorded in (i.e. Slow or Fast), and if the program is still under develop- 
ment, make it clear which version of the program has been recorded. 

For the final version of any program, the cassette tabs at the top of the 
tape should be removed to prevent accidental erasure. 

Make back-up copies of any important programs. 

Rewind tapes at intervals, even if you don’t CLOAD any programs from 
them. This helps prevent ‘bleed through’ of magnetisation from one section 
of tape to adjacently spooled sections. 


7 Graphics 
and colour 


Right, by now we are sufficiently familiar with the simpler BASIC statements 
to look at one of the more advanced topics on microcomputers: 
GRAPHICS. Your Oric has particularly good colour and graphics capabili- 
ties for a micro-computer. In all there are four separate screen displays or 
modes on the Oric. These modes are TEXT, LORES 0, LORES 1 and HIRES. In 
this chapter we will examine each of these in turn. 


TEXT mode 


This is the mode your Oric goes into when you first turn it on and, as the 
name implies, it is primarily intended for the display of text. How do we 
display text? Well, we have already met the PRINT statement that PRINTs 
characters or variables on to the screen but it’s worthwhile taking a closer 
look at the details of PRINTing. The simplest form of PRINT is shown in the 
example below and if you type this in and then RUN it you will get the 
following PRINTed on your screen: 


1@ PRINT "FRED" 


FRED 


Now add another line to get the following program which, when RUN, will 
give the output shown below. 


1@ PRINT "FRED" 
20..PRINT. "AS 


FRED 
A 


It seems quite reasonable that the computer should use a new line to PRINT 
the “‘A”’ and in general the computer will go immediately to the start of the 
next line after performing a PRINT instruction. However, there are some 
special forms of PRINT that we can use to alter this behaviour. Add a comma 
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to the end of line 1@ and then RUN it. This should look like the listing below 
and result in output as shown (ona V1.1). 


1@ PRINT "FRED"; 
2@ PRINT "A" 


FRED A 


Obviously the comma has affected the screen position of the information in 
the following line which has now moved to the end of the PRINT statement in 
line 10. The V1.1 screen can be thought of as having five formatting fields, 
each seven character positions wide, across each line. If a comma is used to 
separate two items which are to be PRINTed, or as the final item in a PRINT 
statement, then the PRINT position is moved forward to the start of the next 
format field. This can be very convenient when we wish to PRINT out tables 
of figures. The V1.0 just places 3 spaces between PRINT items when a 
comma is used. 

There is another character which we can use as a separator in PRINT 
statements and this is the semi-colon, ‘;’. Alter line 1@ again and RUN the 
program. This should result in the listing and output shown below. 


1@ PRINT "FRED"; 
20 °PRINT. “AY 


FREDA 


Well we seem to have altered FRED’s sex this time! The semi-colon causes 
the PRINT position to be left wherever it was when PRINTing stopped. The 
example below shows the output produced by two sample PRINT state- 
ments. Note that every time the Oric has to PRINT out a number it PRINTs a 
space before and after the number as well, On the V1.1. The V1.0 places a 
space only after a number. 


1@ PRINT 1,233 
2@ PRINT "A", "B"3"C" 


1 2 3 
A BC 


There is another command we can use to affect the position of the PRINTing, 
this is done by using the TAB command. This is similar to the TAB function 
on a typewriter. By saying PRINT TAB(n); we can move the PRINT position to 
the n’th character position along the line. Try the program below which 
should give the output shown after the listing. On the V1.0 all TAB positions 
have to be specified as TAB(n+11) but this has been remedied in the V1.1. 
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10 FOR I=@ TO 5 
28 PRINT TABCI)3"HELLO" 
3@ NEXT I] 


HELLO 
HELLO 
HELLO 
HELLO 
MELLO 
HELLO 


Looking at the output it seems that TAB@), TAB() and TAB(2) (on the V1.0 
TAB(11), TAB(12) and TAB(13)) had no discernable effect, but this is because 
character position @ and character position | are reserved by the Oric for 
special codes (we’ll come to these in a moment). So the PRINT position is 
already set to 2 when we start on a new line and, as on a typewriter, you 
cannot TAB backwards. If we wish to use the first two character positions, @ 
and 1, we can press the ConTROL and | keys together. This is one of the 
combinations the Oric recognises as a toggle which reverses the state of an 
internal switch (in this case the column protection switch), and since it was 
on it will now be turned off. If we RUN the program again we should get the 
output shown below. 


HELLO 
HELLO 
HELLO 
HELLO 
HELLO 
HELLO 


Now we come to the question, what were the first two columns reserved for 
in the first place? Well, if you tried the above example you’ve probably 
guessed by now. These columns affect the colour of text on the screen. 
When you use these columns the PRINT appears as white on black instead of 
the usual black on white which is like ink on a piece of paper. This is exactly 
what these columns are used for. The first column usually holds the PAPER 
colour and the second column holds the INK colour. Toggle the protection 
switch again with CTRL and | so that the first two columns are protected 
again. Now we can try changing the INK and PAPER colours on the screen. 
The Oric associates each number between @ and 7 with a particular colour 
and the command PAPER n or INK n will set the background or foreground 
colours appropriately, provided n is in the range 0-7. The colour for each 
number is shown is the table below. 
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0 BLACK 

1 RED 

2 GREEN 

3 YELLOW 
4 BLUE 

5S MAGENTA 
6 CYAN 

7 WHITE 


Try typing in PAPER 1 and press RETURN. The screen should instantly 
change to a display of black characters on a red piece of PAPER. Try the INK 
command in the same way but remember that if the INK colour is the same 
as the PAPER colour you won’t be able to see the characters. 

On the Oric all colours are controlled by special characters known as 
attributes. These are sometimes referred to as ‘serial’ attributes because 
they affect everything that follows on from them. So what the Oric does 
each time we alter a colour is to go down one of the protected columns 
putting a colour attribute in that position on each line, which consequently 
affects the rest of the line. Type in the following program and LIST it on the 
screen. Now RUN the program and it will show all the combinations of INK 
and PAPER colours available. Once again, remember that when the INK and 
PAPER are the same the TEXT will seem to disappear. 


19 FOR I=@ TO 7 
2@ INK I 

38 FOR J=0 TO ? 
4@ PAPER J 

5@ WAIT 5 

6@ NEXT J 

7@ NEXT I 

88 INK @ 


Returning to PRINTing, there is one more item we can use to affect the 
position at which we PRINT. This is by using the @ (‘at’) symbol with two 
numbers. This feature is only found on the Oric V1.1. The first number is 
like the column number in the TaB function, the second number specifies 
which row of the screen we are going to move to. The column position can 
be anywhere from @ to 39 and the row position can be anywhere from @ to 
26. As a quick example RUN the following program (or enter it as a direct 
command). 


1@ PRINT @10,1@03"HELLO" 
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As expected, this places a “HELLO” quarter of the way across and about a 
third of the way down the screen. Not very exciting you might think, but 
this ability to PRINT at any screen location is the basis of most games! The 
following example should give you some idea of why this is so. 


1@ FOR X=2 TO 38 
2@ PRINT @X,1@03" WHI222" 
38 NEXT X 


This sort of animation is possible in all directions around the screen, but we 
do not want to see the flashing cursor while we are PRINTing characters on 
the screen. To prevent this we use one of the other toggles, CTRL Q. This 
switches the cursor on and off and to do this in our program we used the 
CHR$ function which produces characters from their code numbers. We 
ought to remember to turn it back on at the end of our program as well so 
here’s a modified version of the previous listing which does this: 


1Q@ PRINT CHR$(17) 

20 FOR X=2 TO 30 

3@ PRINT @X,10;" WHIZ22" 
4Q@ NEXT X 

5@ PRINT CHR$(17) 


The next program is a game using all the things we have met so far. You are 
a duck hunter and you must shoot your arrows at the ducks “>” that fly 
across the top of the screen. This program has been indented to show its 
structure, but the leading colons and spaces make no difference to how it 
RUNS. This game will only RUN on Orics with the new ROM, V1.1, because it 
utilises the PRINT @ function. V1.0 users can easily replace PRINT @ with 
PLOT, as explained later in this chapter. 

10 +: CLS + S=Q@ : PX=20 

2@ : PAPER 6 : PRINT CHR$(C17) 5CHRS$(6) 

38 : REPEAT 

40 : PRINT @10,03;"SCORE" 3S 

5@ : WAIT RNDC13*100 

62 : DX=2 : REPEAT 


7O : IF KEY$=CHR$C39) AND PX<37 TH 
EN PX=PXt+]1 

88 : IF KEY$=CHR$C8) AND PX>2 THE 
N PX=PX-1 

9a: PRINT @ PX;253" * "3 


180 : DX=DX+1 =: PRINT @ DX;,335" >" 
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110 : IF KEY$="S" THEN 230 ELSE IF 
KEY$<>" " THEN 288 

120 : MX=PX+1 2 MY=24 

130 : REPEAT 


140 : PRINT @MNX,MNY3"°" 

150 : PRINT @MX,MY+15" "5 

160 : MY=MY-1 

170 : UNTIL MY=3 

180 : IF MX=DxX+1 THEN S=S+1 + DxX=3 
8 

198 : PRINT @MX,MY+13;" " = PRINT @ 
Matta 


200 : UNTIL DxX=38 

210 =: PRINT @39,33" "3 
220 :UNTI'_ KEY$="S" 

230 :=PRINT CHR$C17) ;CHRS(6) 


By now you might be wanting to know how you can have more than two 
colours on the screen at once, to make the ducks a different colour from the 
hunter, for example. This is where we come back to those serial attributes 
which affect the rest of the line. We can produce the attributes by typing 
ESCape followed by @,A,B,C,D,E,F or G. These give the attribute for INK 
0—7 respectively. Similarly ESC P to ESC W give the attributes for PAPER. It is 
important to realise that these attributes are actually put in a character 
position on the screen and affect the rest of the line following their position. 
To do this from inside a program we must first PRINT the character which 
means ESCape (CHR§(27)) and then the character for the letter we wish to 
follow the ESCape code. This can either be PRINTed directly as “Q”’, or using 
the CHR$ function. CHR$(64+n) gives the attribute for INK n and CHR$(80+n) 
gives the attribute for PAPER n. The following program will demonstrate 
this for PAPER colours and you can try changing the 80 in the CHR$ function 
to a 64 to see the same thing with foreground or INK colours. 


1@ FOR X=@ TO ? 

2@ PRINT CHR$(27) ;CHR$(80+X) ;"HELLO A 
GAIN" 

38 NEXT x 


There are other special attributes which can be put on the screen in this way 
and these produce various effects on the rest of the line. The table below 
shows the characters which can follow Escape and the attributes or effects 
they produce. 
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ESCAPE SEQUENCES AND ATTRIBUTES 


ESCAPE @ 0 Black ink 

ESCAPE A 1 Red ink 

ESCAPE B 2 Green ink 

ESCAPE C 3 Yellow ink 

ESCAPE D 4 Blue ink 

ESCAPE E 5 Magenta ink 

ESCAPE F 6 Cyan ink 

ESCAPE G // White ink 

ESCAPE H 8 Standard text 

ESCAPE I 9 Alternate text 

ESCAPE J 10 Standard Double height 
ESCAPE K 11 Alternate Double height 
ESCAPE L 12 Standard Flashing 
ESCAPE M 13 Alternate Flashing 
ESCAPE N 14 Standard Double height Flashing 
ESCAPE O 15 Alternate Double height Flashing 
ESCAPE P 16 Black paper 

ESCAPE Q 17 Red paper 

ESCAPE R 18 Green paper 

ESCAPE S 19 Yellow paper 

ESCAPE T 20 Blue paper 

ESCAPE U 21 Magenta paper 
ESCAPE V 22 Cyan paper 

ESCAPE W 23 White paper 


The following listing contains many new features so we will go through it 
line by line. The first line PRINTS the character with ASCII code 12 to the 
screen. This is the clear screen or form feed character, so the computer 
takes a new sheet of paper — just a different way of doing CLS. The second 
line PRINTs another toggle, this one CTRL D affects double PRINTing. When 
this is on, anything PRINTed to the screen is repeated on the row below. The 
third line produces the attribute for double height and flashing. Line 40 
PRINTs the message on the screen where it is PRINTed twice. Line 50 toggles 
the double pRINTing off again. 


1@ PRINT CHR$(12) 

20 PRINT CHR$(4); 

3@ PRINT CHR$(€27)5"N"5 

4@ PRINT"A BIG FLASHING HELLO" 
5@ PRINT CHRS(4) 


Try taking out the lines toggling double printing or the line producing the 
attribute. The effects produced when you make these modifications should 
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help you understand the role each plays producing the message. Note that 
we have arranged to have the top line of our double height characters on line 
1 and the bottom half on an even line (line 2). This is because the computer 
must assume that if you are using double height all the top halves of 
characters are on odd lines with their matching bottom half hopefully on the 
even line below. Try adding a line like this to start PRINTing on the wrong 
line and see what happens when we get it wrong. 


15 PRINT 


Here is a short program which demonstrates how useful this arrangement 
for finding the tops and bottoms of lines can be. 


i@ CLS 

2@ REPEAT 

38 FOR X=1 TO 7? 

4@ PRINT CHR$(27) 5"J" ;CHR$C27) 5;CHRSC8 
O+x) 5 

5@ PRINT" ORIC HANDBOOK BY PAN BOO 
KS" 

6@ NEXT 

7@ UNTIL KEY$<>"" 


LORES 0 


In this mode the Oric displays a black screen on to which the standard 
characters can be PLOTted in a similar way to that in which they were 
PRINTed at a position on the text screen. In fact the LORES 0 screen is just the 
same as the text screen but the attribute at the start of the screen is now just 
the one which selects the standard character set. The colours white on black 
are the default colours which are used if no attributes for these are found 

The PLOT command has two co-ordinates, as for PRINT @. The first, the X 
co-ordinate, can be from @—39, whilst the second, the Y co-ordinate can 
vary from 0-26. Using PLOT does not affect the PRINT position. The PLOT 
command is not as flexible as the PRINT @ command since it requires a string 
of characters. Thus if we wished to PLOT a number we would have to use a 
command like PLOT 10,10,STR$(1). In this way we could convert the above 
game to run on Oric V1.@’s which can use PLOT but not PRINT @. 

Using PLOT we can also put individual characters on the screen and in this 
respect it is a very different statement to the PRINT @ command. We can use 
PLOT to put characters on the screen in inverse. To get inverse characters we 
must use the ASCII code of the character plus 128 and this cannot be done 
from PRINT. When a character is PRINTed in inverse the colours used are the 
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logical inverse colours. This does not mean that the character will appear as 
PAPER on INK colours but means that the character will appear as the logical 
inverse of INK on the logical inverse of PAPER. The logical inverse of a colour 
is found by taking the number of the colour away from seven. This gives us 
the number of the colour which will appear. Thus if the PAPER was | it 
would be PRINTed as though PAPER were (7-1) or 6 and similarly for the INK. 

The following listing creates the string of inverse characters from the 
normal string and then uses PLOT to place them on the screen. Just to prove 
that PRINT doesn’t allow inverse characters they are also PRINTed at the top 
of the screen. 


1@ CLS 

20 PAPER 1 : INK 7? 

30 A$="HELLO" 

4@ FORI=1TOLENCAS) 

5@ BS$=BS$+CHR$CASCCMNIDSCAS$, 133+128) 
6@ NEXT 

7@ PLOT 10,10,A$ 

8@ PLOT 18,11,B$ 

38 PRINTA$, BS 


An associated command is the SCRN function which returns the value stored 
at the SCReeN location specified by X and Y (as for PLOT). This value is 
usually the AScII value of the character displayed at that position, but it 
could also return the value of the attribute stored there if there is nothing 
actually displayed. The following listing demonstrates both of these ways of 
using SCRN: 


{@ LORES 2 

20 PLOT 18,1@8,"A" 
38 PRINT SCRNC1@; 18) 
48 PRINT SCRN(O,@) 


The 8 that’s produced by the second use of SCRN can be explained by 
looking at the table of Escape sequences and attributes we gave earlier on. 
This figure simply represents the attribute for the standard set. In fact it 
doesn’t matter whether you overwrite this or not because this is, of course, 
the default setting anyway. The reason for these codes being put here will 
become apparent in the next section on the LORES 1 mode. As the above use 
of SCRN implies the screen is actually represented in memory by a set of 1120 
memory locations (this is 28*4@, since there are 28 lines on the screen 
including the top status line). These memory locations stretch from #BB80 
or decimal 48000 to #BFDF or 49119 and we can address these locations 
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individually by using POKE. Try the following program which fills all these 
locations with the ASCII code of “‘A’’. 


10 FOR J=#BB8QTO#BFEQ 
20 POKE I,65 
38 NEXT I 


LORES 1 


In much the same way that LORES @ was just TEXT mode with all the first 
column initialised to 8, LORES | initialises the first column to 9, (the 
attribute for the alternative character set). Thus we can print a variety of 
alternative characters and they will appear as combinations of 6 little 
squares inside one character block. Try plotting the whole alphabet on the 
screen. You will see that there seems to be a pattern to the arrangement of 
blocks. In fact there is a very logical arrangement to their patterns. To 
understand how these blocks are set up we must first get right down to basics. 

Inside the computer all the numbers are stored in binary. For each 
location we have eight binary digits, each of which can be 1 or @. In the 
screen locations these bits can each have a special meaning. As we have 
seen, the bits are worth 128,64,32,16,8,4,2 and 1. From the above it is plain 
that the highest bit (128 or b7), indicates that inverse video is to be used for 
that particular character’s display, but you should also note that this does 
not affect the rest of the line! The next two bits down, b6 and b5, (worth 64 
and 32 respectively), can have a special significance when considered 
together. If they are both zero then the location is an attribute and the 
remaining bits will add up to a number between @ and 31 that can be looked 
up in the attribute and Escape sequence table above to see what effect it has. 
We could also have the highest bit set making the number larger than 128, 
but bits 5 and 6 being zero will still indicate that it is really an attribute. Try 
the following program. 


18 LORES 1 

2@ A$=CHR$(145)+"ABCDEFGHI JKLMNOPOQRST 
UUWXY2" 

38 PLOT 5;18;,A$% 


145 is the attribute for red PAPER with 128 added on to indicate inverse. This 
means that the space where the attribute lies is shown in the inverse of red, 
i.e. cyan, and the rest of the line is PRINTed in red. You will have noticed by 
now that the red does not go right to the end of the line, but reaches only as 
far as the last printed alternate character! Well, a quick check with SCRN 
should reveal the situation, in that all the other locations have been set to 16, 
which is the attribute for black PAPER. Now let’s look at how the bits that 
choose the character are arranged. Remember that we said it would be an 
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attribute only if both b5 and b6 were @. For the normal character set all the 
bits from b6 down to b@ are added up to get the code of the character to be 
displayed. This also happens in the alternate set, but the way that the block 
characters have been defined is designed to allow each block of the six to be 
represented by one bit. There are seven bits in the code but we must use one 
to keep the code from being an attribute. B5 has been chosen to always be 
one and the other bits are allocated as follows: The top left block is b0, top 
right is b1, middle left is b2, middle right is b3, bottom left is b4 and bottom 
right is b6. To get a character with the right blocks set, we just add up the 
values for the bits representing each block, then add in 32 for bit 5. In this 
way we can address the Oric graphics as MEDIUM RESOLUTION graphics. We 
can think of the screen as being @ to 79 across and 0 to 80 blocks down. The 
following program shows a subroutine, which will plot any individual block 
on this coordinate system, in use. We must of course avoid plotting to x 
co-ordinates less than two since these would lie within the first character 
position and erase the alternate set attribute. 

1@ DIM PC2,3) 

2@ FOR I=1 TO 3 

3@ READ PC1,1),;PC2,1) 

4@ NEXT I 

5@ DATA 1,2,4,8,16,64 

1@@ LORES 1 

118 Y=4@ 

120 FOR X=2 TO 79 

13@ GOSUB 1988 

14@ NEXT X 

15@ FOR X=2 TO 79 STEP @.2 

160 Y=40+SINCX718)x35 

17@ GOSUB 1908 

18@ NEXT X 

19@ END 

1Q@@ REM PLOT X,Y : MEDIUM RESOLUTION 

1818 CX=INTCX72) + PX=INTCXJ-CXxX2+1 

1820 CY=INTCY’3) = PY=INTCY)-CYX3t1 

1030 P=#BB80+CCY+1)*4@+CX 

1048 Q=PEEKC(P) =: IF Q<32 THEN Q=32 

1858 Q=Q OR PCPX,PY) : IF Q@>95 THEN Q 

=Q-32 
1868 POKE P,Q 
1870 RETURN 
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HIRES 


This is the Oric’s High RESolution graphics mode. We can place points 
anywhere on the screen to a resolution of 240 dots across and 200 dots 
down. As with all the other modes the top left corner is 0,0. There are 
several complex and powerful inbuilt commands for HIRES graphics on your 
Oric. We will start by taking a look at the two simplest commands. 

The first of these is CURSET. This is the command which we use to set the 
start position for our graphics cursor. This command has three parameters. 
The first two of these are simply the x and y co-ordinates of the point in 
question. The third parameter is one which is used by nearly all the HIRES 
graphics commands, so we’ll deal with it in detail here and refer back later 
on. This final parameter is know as the foreground/background or fb 
parameter. This affects the way points are plotted on the screen. The fb 
parameter may have any of the four values @ to 3. The values and the way 
they affect the plotting commands is are summarised in the table below. 


fb Effect 


® The points are plotted in the background colour. (This can also be 
thought of as un-plotting a point). 

1 The points are plotted in the foreground colour. 

2 The points are inverted i.e. if they were in the foreground colour before 
being plotted then they are changed to the background colour and vice 
versa. 

3 Null. The points are not affected although the graphics cursor position 
will be set to the last point visited. 


The next graphics command to consider is DRAW. This has three para- 
meters like CURSET and these are the x and y parameters followed by the fb 
parameter. However, DRAW works in a very different way to CURSET. The x 
and y values specified are not the co-ordinates of a point on the screen but 
are relative to the current graphics position. This means that they are added 
to the current position to get the co-ordinates of the point to which the line 
will be drawn. We must be careful to ensure that this point will not be 
outside the screen area or the Oric will have to stop and tell us there’s an 
error in our program. The program below demonstrates the difference 
between CURSET and DRAW by first plotting the points in the corners of the 
screen and then, after a key press, DRAWing the lines joining them up. Note 
that we use CURSET to set the start position before DRAWing the lines. 


1@ PAPER @:INK ? 
2@ HIRES 

38 CURSET @,@,1 
4@ CURSET @,199,1 
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5@ CURSET 239,199, 1 
6@ CURSET 239,;0,1 
7@ GET AS 

88 CURSET 8,98,3 

98 DRAW 8,199,;1 

18@ DRAW 239,051 
11@ DRAW @,-199,1 
128 DRAW -239,0;1 


There is a third simple, but less often used, graphics command and this is 
CURMOV. This is the “‘relative movement” version of CURSET. The x and y 
parameters are added to (or subtracted from) the current graphics position 
as they are in DRAW. In fact this command is almost the same as using DRAW 
with the fb parameter set to 3. Try the following two versions of a program 
to demonstrate the different workings of CURSET and CURMOV. 


1@ PAPER @:INK 7 
28 HIRES 
3@ FOR I=1 TO 15 
4@ CURSET I,1;1 
5@ NEXT I 


1@ PAPER @:INK 7 
28 HIRES 
3@ FOR I=1 TO 15 
4Q@ CURMOV I,151 
5@ NEXT | 


To demonstrate the high resolution and accuracy of plotting achievable on 
your Oric’s screen try the following program. This should result in a TV 
picture which has rippling colours where the lines are close together. This is 
because your Oric is designed to exploit the display capability of your 
domestic TV to its limits and unless you have a very expensive monitor/TV 
this is as fine a resolution as it can handle. 

1@ PAPER @:INK 7? 

20 HIRES 

38 FOR I=@ TO 239 STEP 2 

4@ CURSET I,9,1 

5@ DRAW 239-1,199, 1 


82 Graphics and colour 


6@ CURSET I,199;1 
7@ DRAW -1,-199,;1 
88 NEXT I 


A further feature the Oric has associated with the DRAWing of lines is the 
PATTERN facility which allows you to specify the type of line drawn, as dots, 
dashes, etc. The PATTERN command has one parameter between @ and 255, 
and this defines, by its binary equivalent, a PATTERN which will be used 
when drawing any line of eight points in length. The default PATTERN is 255 
which in binary is 11111111 so all the dots in a stretch of line are plotted. If 
we were to use PATTERN 85 which in binary is 01010101 we would get lines 
drawn with every other point left out. The program below draws a sample 
length of line in each of the available PATTERNs so you can see what’s 
possible. 


1@ HIRES 

2@ FOR I=8 TO 31 

38 FOR J=@ TO 7? 

4@ PATTERN Jx32t+I 

5@ CURSET Jx3@,1x6,3 
68 DRAW 24,98,1 

7@ NEXT J 

80 NEXT I 


The following program DRAWs a demonstration pattern but first allows you 
to select the PATTERN to be used for drawing the lines. This will allow you to 
experiment with the PATTERN command. 


1@ PAPER @:INK 7? 

2@ HIRES 

3@ INPUT "PATTERN "3P 

4@ PATTERN P 

3@ FOR I=@ TO 199 STEP 5 
68 CURSET 1;@;1 

7@ DRAW 199-1,1,;1 

8@ CURSET I,199,1 

3@ DRAW -I,1-199,1 

188 NEXT I 


Now we come the advanced graphics commands available on the Oric—1. 
The first of these is CIRCLE and this has two parameters. The first parameter 
is the radius of the CIRCLE and the second is the fb parameter. The CIRCLE 
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will be plotted using the current graphics position as the centre. We must 
ensure, as with DRAW, that the CIRCLE does not go off the screen or we will 
cause an error. The program below demonstrates the CIRCLE command in 
action by picking a centre at random for the x and y co-ordinates. The 
minimum distance from this point to the edge of the screen is then 
calculated as this is the maximum radius we can use for a CIRCLE about this 
point. Note that 0 is not a valid value for the radius, so we don’t try to plot a 
CIRCLE in this case. The central point of the circle has been set with CURSET 
using an fb parameter of 1 so that you can see where it lies. 


1@ PAPER @:INK 7? 

20 HIRES : REPEAT 

3@ X=INTCRND(1)*239) 

4@ Y=INTCRND(13*199) 

5@ IF Y>99 THEN DY=199-Y ELSE DY=Y 
6@ IF X>119 THEN DX=239-X ELSE DX=xX 
7@ IF DX>DY THEN R=DY ELSE R=DX 

8@ CURSET X;Y;1 

9@ IF R>@ THEN CIRCLE R51 

1@Q@ UNTIL KEY$="S" 


The next program shows a slightly more constructive use of CIRCLE with the 
centres not being plotted. 


1@ PAPER @:INK 7? 

2@ HIRES : REPEAT 

3@ FOR X=3 TO 5@ STEP 3 
4@ CURSET X+5@,180,3 

5@ CIRCLE Xx2;1 

6@ NEXT 


In much the same way that we read the contents of a particular screen 
location in the TEXT modes with the SCRN function, we can examine the 
status of any point on the screen with the POINT command. This has two 
parameters, logically, the x and y co-ordinates of the POINT to be examined. 
The value 1 is returned by the function if the POINT is displayed in the 
foreground colour and @ is returned if it is displayed in the background 
colour. This not the same as reading the contents of a whole location as we 
did with the SCRN command. This is because each of the 200 lines of the 
screen is, in fact, made up of just forty screen memory locations. The bits in 
these locations can indicate, just as on the TEXT screen, that an attribute is 
present at this location (bits 5 and 6 both @). If this is not the case then the 
lower six bits represent the status of a row of 6 points along the line, where a 
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binary one corresponds to a foreground point and a binary @ corresponds to 
a background point. This is how we get 240 or 6*40 points along each row. 
Bit 7 is used to indicate that a particular block of six points is to be displayed 
in the logical inverse colours and in this way we can access four colours, 
even though we have only set one foreground colour and one background 
colour. We can set the attributes using PAPER and INK just as we did in TEXT 
mode and these commands will place an attribute in the first and second 
positions of each of the 200 rows of the high resolution screen. Of course 
this means we will not be able to plot points with x co-ordinates less than 12 
because these would lie within the locations used for attributes. Now comes 
the question of how we access the inverse bit in the memory locations. Well, 
this is just one use of the FILL command for high resolution graphics. With 
this we can FILL a block of screen locations so many rows down, by so many 
bytes or locations across, with whatever number we choose. We must set 
the graphics cursor to the top line and left-hand corner of the block we wish 
to access and then issue the FILL command with the following three 
parameters. Parameter one is the number of rows down, number two is the 
number of bytes across and number three is the number which we wish to 
put into all of these locations. We could use this to FILL an area of the screen 
with a pattern of points, but in this case we will use it to set the highest bit of 
all the locations on the right-hand side of the screen. Note that we also set 
bit 6 so that the locations are not treated as attribute locations so 192 in line 
40 is 128+ 64. 


1@ HIRES 

2@ PAPER 2 : INK 4 
3@ CURSET 128,90,3 
4@ FILL 200, 20,192 
38 CURSET 120,108,3 
6@ CIRCLE 39@;1 


As we mentioned above the HIRES screen is made up of 200*40 locations and 
we can access these directly by using POKE. These locations lie between 
#A000 and #BF40 and the following program POKEs 65 into all the 
locations. This time the 65 is interpreted not as the ASCII code for A but as 
signalling with bit 6 that it is not an attribute, and with bit @ that the 
left-hand point of each line of 6 is in the foreground colour. 


3S HIRES 

18 FORI=#AQGBGTO#BFES 
2@ POKEI,65 

38 NEXT 
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Since we can POKE any value we like to the screen we can use this to set up a 
High RESolution colour display using all eight colours. The following 
program produces a sinusoidal striation of colour down the screen in this 
manner. 


1@ HIRES 

20 FORY=0T0199 

38 S=INTCSINCY710)*8) 

4@ FORX=8T039 

58 P=#AGQBt+YX40+%X 

68 Q=(S+XIJ-INTCCS+X)78)x*8+16 
7@ POKE P,Q 

88 NEXT 

3@ NEXT 


By using this method of placing attributes on the HIRES screen we can 
produce more colours from the Oric. We simply mix two different colours 
together on alternate lines and we can make at least 36 different colours. 
The following program demonstrates some of the colours which can be 
achieved. Even more shades can be accessed by overlaying patterns of 
foreground colours on these striped backgrounds! 


1 ?COPYRIGHT PAN LTD 

1@ PAPER @:INK 7? 

2@ HIRES 

3@ FOR A=@ TO 7? 

4@ FOR B=@ TO ? 

5@ FOR Y=Bx20 TO Bx20+2@ 
6@ P=#ABQO+YX40+AXS 

7@ IF INTCY72)=Y72 THEN Q=16+A ELSE Q 
=16+B 

88 POKEP;Q 

3@ NEXT 

180 NEXT 

11@ NEXT 


So far the subject of writing on the HIRES screen has been neglected. We can 
do this with the CHAR command which is one of the most powerful and 
potentially exciting commands on your Oric. This command allows us to 
place characters to an accuracy of one point not just the character positions, 
a feature only found on one, the most expensive, of the Oric’s competitors. 
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The CHARacters are placed at the current graphics position with the 
command CHAR followed by three parameters. The first parameter is the 
ASCII code of the CHARacter to be plotted, the second parameter is the 
character set from which the character is to be taken (0 for the standard set 
and | for the alternative set), and the third parameter is our old friend the fb 
parameter. This truly remarkable feature, which will allow animated dis- 
plays and games of superb quality to be constructed on the Oric—l, is 
demonstrated by the program below which uses a subroutine to place a 
string of characters on the HIRES screen. 


10 HIRES 

2@ PAPER 1 :INK 3 

38 A$S="ORIC POWER" 

4@ FOR W=1 TO 28 

38 CURSET 38,58+WX3,3 

6@ GOSUB 188 

7@ NEXT 

8@ END 

1@Q@ REM PRINT STRING WITH SPACING W 
118 FOR I=1 TO LENCAS$) 

12@ CHAR ASCCNIDSCA$,1)I;,0;1 
138 DRAW W,8,3 

14@ NEXT I 

15@ RETURN 


Character Graphics 


Having looked at the different modes available to us we now come to the 
most flexible of the Oric’s graphics features: characters. When we men- 
tioned games in the previous section you may have thought that there 
wasn’t going to be much excitement in watching a string of letters zoom 
around the screen, no matter how accurately, but in this section we will see 
that we are not limited to using letters. In fact we are not limited at all in the 
objects we use! First, though, let’s review what we know of characters. 

We have used characters in both TEXT and HIRES displays and by now you 
might be wondering how they are made. Well the answer to this can be 
found by examining exactly what happens when we put a character on the 
HIRES screen. At this time the computer must know which points to plot in 
foreground colour and which are to be plotted in the background colour 
within the area of the character. It finds this information out by looking at a 
table which is kept in the memory. In this table there are stored eight pieces 
of data for each character. These pieces of data can be thought of as eight 
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binary PATTERNs each of which defines a single horizontal line of the 
character. In fact only the lowest six bits of the pattern are used for each line 
to fit in with the number of displayable pixels across each location. It will 
help to understand how these patterns fit together to define a character if 
you think of each character as being a 6 by 8 grid of blocks. 





= 20 
= 34 


fi | a 
WW, \ = 82 


a4 
= 34 





Ve 
Yi 














In the figure above the numbers above each block are the values of the 
equivalent bits in the pattern. The figures at the side of the block are the 
sum of the bits in that row which are on (marked by shading). This is how 
the Oric’s normal characters are defined. In the HIRES mode this informa- 
tion is used to decide which points to display to produce a character. In the 
TEXT modes this information is encoded into the TV signal to produce the 
character on the display at the appropriate character position. 

Unlike most computers, the Oric keeps the whole of its character 
defining table in RAM. This means that we can change any character to 
be whatever we like. This has enormous potential for games and 
animated displays! 

When you turn your Oric on, or press the reset button, it copies the 
character sets, standard and alternative, from its permanent ROM mem- 
ory into RAM. These tables comprise 128*8 pieces of data for the stand- 
ard set definitions, and 112*8 for the alternate set. These tables are 
always stored in memory just before the screen memory. When we 
switch from TEXT to HIRES these tables are moved to maintain their 
position as being just before the screen memory. In TEXT mode they start 
at location #B400 (for the standard set) and location #B800 (for the 
alternate set). In HIRES mode the tables are moved to start at #9800 for 
the standard set and #9C00 for the alternate set. The position of the first 
of the eight pieces of data in the table for defining a character can be 
found by adding 8 multiplied by the Ascil code of the character in question 
to the start of the table. Thus the data for A is stored at #B400+8*65 
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(ASCII A) which is (in decimal) 46600. Try the following program which 
POKEs new values into these locations and then PRINTs an A. The A should 
appear as an italic A because we have now redefined the way Oric draws an 
A. Try switching to HIRES mode and use CHAR to place an A on the screen to 
prove that the characters have been copied down correctly. 


1@ FOR A=@ TO 7 

2@ READ B 

3@ POKE 466@0+A;B 

4@ NEXT 

9@ DATA 14,17,17;17,62;34,34,9 


To take full advantage of this capability for changing the shapes of letters 
we will need to calculate many different patterns in binary. Computers are 
supposed to make life easier for us so let’s use the Oric to do the hard work. 
The following listing is a CHARACTER GENERATOR program that allows you 
to define any shape you want and store the data in either character table. It 
also allows you to edit a character definition from either table. The 
character is displayed in large scale inside a grid and we use the full block 
character from the alternate set to fill in the squares. The squares are also 
plotted actual size on the screen as points below the grid and in this way we 
can directly read the binary equivalent from the screen memory (remem- 
bering that bits 6 and 7 are not part of the definition). To move the cursor 
use the arrow keys and to change a square press the space bar. To Save a 
character press S, to Edit a character press E and Quit the program use Q. 
The S and E options will ask you to specify which character set (@ for 
standard and | for alternate) and which character (the ASCII code) you wish 
to save or edit, to or from. If you wish to use the data in another program 
you will be able to read it off the screen where it is displayed to the right of 
the grid when a character is under examination. 


Listing CHARACTER GENERATOR 


1@ HIMEM#3S7FF 

20 GOSUB 200 

3@ REPEAT 

4@ CURSET XC,YC,3:WAIT 1@:CHAR 95,1,2 
38 WAIT 18:CHAR 95,1,;2 
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6Q@ AS=KEY$S 
7@ UNTIL ASO" 
BQ IF A$=CHR$C9) AND XX<6 THEN XxX=xKX+ 


1:XC= 


xC+6:GOTO 30 


9@ IF A$=CHR$C8) AND XX>1 THEN XX=xXX- 


1:xC= 


120 


“C-6:GOTO 38 
IF A$=CHR$C18J AND YY<8 THEN YY=Y 


Y+1:YC=YC+8:GOTO 30 


11 


IF A$=CHR$C113 AND YY>1 THEN YY=Y 


Y-1:YC=YC-8:GOTO 30 


120 
138 
148 
158 
168 
200 
21 
220 
30,1 
232 


IF A$="_" THEN GOSUB 388:GOTO 38 
IF A$="E" THEN GOSUB 488:GOTO 38 
IF AS="S" THEN GOSUB 5@0:GOTO 38 
IF AS¥<>"Q" THEN GOTO 32 

STOP 

REM INITIALISE DISPLAY 

HIRES 

FOR X=10@ TO 136 STEP 6:CURSET X%; 


:DRAW @,64, 1 :NEXT 


FOR Y=38 TO 94 STEP 8:CURSET 18@, 


Y,1:DRAW 36,0, 1 =NEXT 


248 
+1 
250 
2608 
272 
308 
318 
320 
338 
340 
4 
358 


X=119:Y=100 :M=H#AGOO+YX40+ INT CX76) 


XC= 1008: YC=30 :XxX=1:YY=1 

GOSUB 980 

RETURN 

REM CHANGE SQUARE 

CURSET XC,YC,3: CHAR 95,1,2 
CURSET X+XX,YtYY, 2 

FOR I=1 TO: 8 

P=PEEK(M+4@X1IJ:IF P>63 THEN P=P-6 


P$=MIDS$CSTRECPI, 2) :P1=180:P2=1k8+ 


24:GOSUB 680 


360 
378 
400 
410 


NEXT 

RETURN 

REM EDIT CHARACTER 
GOSUB 782 
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428 GOSUB 222 

43@ CURSET X+1,Y+1,3 

44@ CHAR A;S,1 

45@ FOR J=xX+1 TO X+6 

46@ FOR K=Y+1 TO Y+8 

470 IF POINTCJ,;K)J THEN GOSUB 882 
480 NEXT :NEXT 

438 GOTO 338 

5@@ REM SAVE CHARACTER 

318 GOSUB 722 

5920 FOR I=1 TO 8 

5930 P=PEEK(N+4@xI):IF P>63 THEN P=P-6 


940 POKE CHO?FF+SK#400+AX8+1),P 
55@ NEXT 

968 GOSUB 2280 

578 RETURN 

6@@ REM PRINT STRING ON SCREEN 
61@ CURSET P1,P2,3:FILL 8,3,64 
620 CURSET P1,P2;3 

63@ FOR K=1 TO LENCPS$) 

6408 CHAR ASCC(MIDS$(P$,KIIJ,P3;1 
650 DRAW 6,9,3 

668 NEXT 

678 RETURN 

7@@ REM INPUT SET AND ASCII] CODE 
7108 REPEAT 

720 INPUT"WHICH SET";S 

730 UNTIL S=1 OR S=@ 

740 REPEAT 

750 INPUT"WHICH ASCII CODE" ;A 
760 UNTIL AX32 AND A128 

778 RETURN 

800 REM PLOT J;kKth SQUARE IN GRID 
818 TxX=100+6xCJ-x-1) 

820 TY=3Q@4+8xkCK-Y-1) 

83@ CURSET TX;,TY;3 

84@ CHAR 95,1,;2 
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85@ RETURN 

988 REM DISPLAY CHARACTER SET 
910 FOR -L=32 TO ‘96° ‘STEP S2:P$="" 
928 FOR N=L TO L+t31 

938 P$=P$+CHRSCN) 

348 NEXT 

958 P1=20:P2=115+INTCL73) :P3=8 
36@ GOSUB 620 

978 P1=20:P2=155+INTCL73) :P3=1 
388 GOSUB 622 

99@ NEXT 

1080 P3=8:RETURN 


The final program in this chapter demonstrates the use of a defined 
character in a simple animation program of an airplane following a path 
specified in polar co-ordinates. This should give you some idea of the power 
of defined characters for your Oric and provide a fitting end to this chapter 
exploring the amazing graphics prowess of the Oric—1. 


1Q@ HIMEM#37FF 

2@ FOR P=@ TO ? 

3@ M=#B400+8xCASCC"a"I+P) 

4@ FOR A=@8 TO 7? 

5@ READ B 

6@ POKE M+A;B 

20 NEXT 

80 NEXT 

9@ REM DATA FOR abecde#f gh 
18@ DATA 30, 30,6,6, 38; 39, 38,0 
118 DATA 2,3, 18;38,12,24,48; 40 
128 DATA 8,57,1,63,63,16,0,0 
130 DATA 16,8, 36; 48, 24,45,7;2 
14Q DATA @, 38, 39, 38,6,6, 38, 30 
15@ DATA 2,4,9,3,6,45,56, 16 
16@ DATA 8,39, 32,63,63;2,0,8 
170 DATA 16,48,18,25,12,6,3,5 
200 HIRES -PAPER 6:INK 1 

218 OX=180:0Y=101 

220 R=80:PP=P17180 
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232 
242 
250 
262 
270 
280 
290 
322 
312 
320 
330 
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REPEAT 

FOR A=@ TO 2xPI STEP PP 
X=120+COSCAIXR 
Y=100+SINCAJXR 
C=397+INTCCAtPI78)7(P174)) 
IF C=105 THEN C=97 

CURSET Ox,OY,3:FILL 8,2,64 
CURSET *,Y,3:CHAR C,@,1 
OX=X :OY=Y 

NEXT 

UNTIL KEY$<>"" 


8 The sound 
of music 


The Oric sound and music facilities are extensive. For the games enthusiast 
who requires easy-to-use sound effects, the Oric comes with ready made 
ZAP, SHOOT, PING and EXPLODE. These onomatopoeic commands produce 
exactly the noises their names lead you to expect, and what’s more they do 
so at impressive volume levels. Not for the Oric the insipid whimpering of 
some other computers’ sound facilities. The Oric belts out its noises and 
tunes in a loud, positive voice. 

The flexibility and sophistication of the other Oric sound commands are 
also something to shout about. 

MUSIC is a command which supplies the user with a western style 
chromatic scale on which to base compositional programs. For sound 
effects there is the SOUND command which controls the noise generator 
necessary for simulating roaring rockets and exciting explosions. This 
chapter takes us out into the deep space of music on the micro. Our first 
stop on this journey then are the ready-made sound effect commands .. . 

There are four pre-defined BASIC sound instructions on the Oric: ZAP, 
SHOOT, PING and EXPLODE. By simply typing in ZAP (and pressing RETURN) 
the sound of aliens letting fly with another blast from their laser cannon is 
immediately conjured up. Alternatively the one-line program: 


10 FORN = 1 TO 100: SHOOT : WAIT 30: NEXT 


will straight away give an aural impression of a raucous evening in Dodge 
City. These commands are ideal game fodder and can be put to good use in 
your future Oric Space Inveiglers and Puc Person programs. 

These simple and easy-to-use pre-defined sounds are only an introduc- 
tion to the Oric’s capabilities, however, and for the creative use of sound we 
turn to the noisy trio of SOUND, MUSIC and PLAY. In this chapter we will 
explain the functions and format of these instructions and explain how PLAY 
interrelates with the other two. Let’s delve straight into the fascinating 
world of micro composition by looking at the Oric’s flexible sound 
command MUSIC. 
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MUSIC 


MUSIC makes use of the three independent square wave generators available 

from the Oric’s specialist sound chip as a sound source. Each tone has a 

separate channel, and by using MUSIC in combination with PLAY, chords and 

multiple part compositions are possible. For simplicity’s sake we’ll initially 

deal with Channel | only, since this will operate without the use of PLAY. 
The syntax of the MUSIC command is: 


MUSIC Channel, Octave, Note, Volume 


The four values specifying Channel, Octave, Note and Volume must be 
separated by commas. Channel can take values of 1, 2 or 3, and defines 
which tone generator is in operation. For the remainder of this section we 
will be using Channel 1. 

Octave refers to the range within which the Note parameter operates. It 
takes an integer value from 0 to 6, where 2 is the ‘octave’ directly above 
middle C on a piano. Octave’s purpose will become more clear after looking 
at the Note parameter. 

Note has a range of integer values from 1 to 12 inclusive. These are 
equivalent to the notes of a chromatic scale starting on C (N = 1) and 
finishing on B (N = 12). By using Octave and Note in combination a 
chromatic scale from two octaves below middle C to B four octaves above 
middle C is obtainable. 

Volume is a self explanatory parameter and has a range from 1 (quiet) to 
15 (ear-splitting). 

As a quick demonstration of MUSIC you can key in and RUN the program 
‘CHROMATIC SCALE’ which plays every note in each of the seven 
octaves, i.e. from MUSIC 1, @, 1, 10 (low C) to MUSIC 1, 6, 12, 10 (high B). 


1 REM xkxX CHROMATIC SCALE xxx 
> CES 

1@ PAPER 5 

2@ FOR O=@ TO 6 

38 FOR N=1 TO 12 

4@ MUSIC 1,0;N,18 

58 WAIT 38 

6@ NEXT N 

7@ NEXT O 

72 END 


The elegance of the MUSIC command really becomes apparent when you 
relate music in the real world with MUSIC in the computer. The way Octave 
and Note are interdependent is an exact mirror of western musical theory. 
To illustrate this look at this diagram of a conventional piano keyboard: 
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Just as in standard music notation there are twelve symbols for the twelve 
notes of the chromatic scale, the Oric recognises twelve values for Note. 
Thus Note cannot be 13 or 14, in the same way that there are no musical 
notes H or I. 

Using this system a major scale of C (playing all the white notes on the 
piano from C to C’) would require: 

Note = 1, 3, 5, 6, 8, 10, 12, 1 

The program ‘keyboard’ illustrates this principle by turning the top line of 
keys on the Oric into a piano-type keyboard (@ being 10, ‘—’ being 11 and 
‘=’ being 12): 


1 2 3 4 5 6 #7 8 9 90 a 
C C# D D# E F F# G G# A A# 


1@ REM KKK KEYBOARD xxx 


Bw il 


20 GET AS 

30 A=VAL CAS) 

40 IF AS$="-" THEN A=1]1 
3@ IF A$="=" THEN A=12 


6@ IF AS="7" THEN PLAY@,8,0,0: STOP 
7@ IF A=@ THEN A=10 

8@ MUSIC 1,3;A;8 

85 WAIT 28: PLAY@,@,9,9 

38 GOTO 28 


GET A$ waits for a keypress from the keyboard while line 3@ reads the value 
of the input into variable A. A will be the value of the number pressed, 
except for 0, — and = which will give respectively 10, 11 and 12. One PLAY 
statement is used in this program: PLAY 0, 0, 0, 0. This simply shuts off the 
Channel | tone generator when the program ends. Press the ‘/’ key to end 
the program. 

Due to the limitations of the Oric’s (or any alpha-numeric) keyboard you 
are not about to be able to play ‘Flight of the Bumble Bee’ using the 
keyboard program. However, there is a way of playing technically demand- 
ing the intricate pieces of music without moving a finger (well, just the one— 
to press RETURN). To accomplish this we use the computer to do what it 
does best, remember things! 

There are two ways of storing musical information in the Oric. The first 
of these is the DATA statement. 


1 REMKXxX TUNE xxx 

3 READ A 

1@ MUSIC 1,3;A,10 

25 IF A=11 THEN RESTORE 
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38 WAIT 25 

4@ GOTOS 

108 DATA 3,5,6,8,18,6,18,19,9,5,9,9,;8,4 
18,11 


The program ‘TUNE’ uses a DATA statement to store values for Note (A). In 
line 5 the values are READ into the MUSIC statement and line 25 is a simple 
method of causing the program to repeat itself. 

DATA statements have the advantage of being thrifty with memory space 
and so are ideal when a fanfare of some type is needed in a games program. 
Their disadvantage lies in the difficulty encountered in changing the DATA. 
It is time consuming and confusing trying to edit the melody in any way. 
For a more flexible storage system we must look to the second possible 
method of storing musical information — in arrays. 

The program ‘SEQUENCER’ below uses the keyboard used earlier as a 
method of inputting Note values into a hundred note array, A(100). Line 13 
sets up the array and the next part of the program is the old familiar 
‘KEYBOARD’ program. Line 85 uses WAIT 20 followed by PLAY 0, 0, 0, 0 to 
give any notes the user inputs a finite length of 1/5 second. (Without this 
line the note would continue until another key was pressed.) Line 75 allows 
us to escape from inputting more notes when we have had enough and the 
variable G counts the number of steps in the sequence. 


2 REM *kxX SEQUENCER xxx 

4 CLS 

S PRINT "The ORIC one hundred note sequ 
encer" 

6 PRINT"=== ==== === ===5=5=5=5= S555 S===5 
7? PRINT 

8 PRINT "Enter Notes using the top line 
of keys" 

9 PRINT"When the last note has been ent 
ered" 

1Q@ PRINT"press N," 


11 CLEAR 

13 DIM AC10O) 

14 G=1 

16 FOR N= 1 TO 180 
20 GET A$ 


38 ACNIJ=VALCAS) 
4@ IF A$="-" THEN ACNIJ=11 


98 


58 

708 

73S 

82 

85 

87 

38 

39339 
400 
4@5 
418 
411 
412 
413 
414 
ae 
415 
438 
448 
450 
460 
478 
380 
5@5 
518 
912 
313 
3208 
521 
922 
323 
338 
108 
181 
1Q2 
183 


Most 
labell 
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IF A$="=" THEN ACNIJ=12 
IF ACNJ=@ THEN ACNIJ=18 
IF A$="\" THEN GOTO 399 
MUSIC 1,3,ACN),8 
WAIT 20: PLAYG,98,@,@ 
G=G+t] 
NEXT N 
PRINT 
CLS 
PRINT “Set speed of sequence" 
INPUT S 
PRINT 
PRINT"To Go press G." 
PRINT"To Stop press S," 
PRINT"To Enter a new sequence press 


PRINT"To Alter speed press A.” 
GET A$ 

IF AS="G" THEN GOTO 5@@ 

IF A$="E" THEN GOTO 2 
IFAS="A" THEN GOTO 399 

IF AS="C" THEN GOTO 1898 
FOR N= 1 T0 G 

IF N=G THEN N=] 

MUSIC 1,3,;ACN);1@ 
PLOT1@,1@,"No. :"+STR$CN3I 
PLOT1@,12, "Note :"+STR$CACN) ) 
WAIT S 

IF KEY$="S" THEN GOTO 432 
PLOT1@,1@,"No. : " 
PLOT1@,12,"Note: u 
NEXTN 

@ INPUT"N"5N 

5 IF N=@ THEN GOTO 480 

@ INPUT"NOTE" 5ACN3) 

@ GOTO128a 


of the rest of the program is taken up with instructions and the 
ing of keys to start and stop the sequence, apart from lines 500 to 530. 
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At line 500 we see the use of G in allowing the sequence to cycle repeatedly, 
by resetting N equal to 1 if the cycle is complete, i.e. N=G. The speed of the 
FOR . . . NEXT loop is controlled by the line: 520 WAIT S. 

WAIT is an important command in music programming. The timing of 
notes in real music is just as important as the pitch of the notes, so in any 
serious music program some account must be taken of timing. In 
‘SEQUENCER’ we can make notes last longer by simply entering them 
more than once. This is the method used in the commercially available 
sequencers incorporated in the Roland SH 101 synthesiser and the 
Sequential Circuits Pro-One Synth. This type of sequencer works perfectly 
well for repetitive and mechanical sounding melodies but is not practical 
when variation in phrasing is required. 

We can program a more subtle compositional routine which allows both 
the note, pitch and the length of note to be stored. For a simple illustration 
of this see this next program, ‘COMPOSITION’: 


1 REM xxx COMPOSITION xxx 

18 T=1 

28 CLS 

38 DIML(50) 

48 DIMO(50) 

58 DIMAS) 

55 PRINT"TO PLAY YOUR TUNE ENTER @ FOR 
NOTE" 

68 FOR N= 1 TO 5@ 

30 PRINT 

1@@ INPUT"NOTE 1-12:" 5ACN) 

110 IF ACNJ=@ THEN GOTO 5@d 

128° INPUT*OCTAVE. t<7" 0(0N) 

125 MUSIC 1,0C0N)J;,;ACNJ;1@:WAITS@:PLAYO;@ 
» 8,8 

13@ INPUT"LENGTH" 5LCN) 

15@ NEXT 

5880 PLAY1,0,;90,0 

904 T=Ttl 

586 IF T=6 THEN PLAY@,@,0,0:STOP 
51@ FOR P=1 TO N-1 

52@ MUSIC1,O(PIJ,ACPIJ,10 

930 WAIT 2@xL CP) 

335 IF P= N-1 THEN GOTO 30@ 

548 NEXT P 
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This program uses the three arrays A( ), O( ) and L( ) to store the note, its 
octave and its length. Notes are entered through an INPUT statement so 
RETURN must be pressed before the note is heard. To escape from input 
mode to playback mode we include the line: 


102 IF A (N) = 0 THEN GOTO 500 


Zero must be entered in reply to the NOTE? prompt to conclude input. 

This method of entering pitch and timing as numerical values has a lot in 
common with the very sophisticated Roland MC-4 microcomposer. This 
composer also expects a numerical input rather than a performance from a 
keyboard. The MC-4 has a number of capabilities not provided in the 
‘COMPOSITION’ program, however! One of these is an editing facility. 
The ability to correct mistakes and refine program material is obviously an 
essential part of a useful micro-composer. This update we will leave to you 
but the MC-4’s other advantage, polyphony, is covered by the Oric’s PLAY 
command. (Polyphony is the playing of more than one note simultan- 
eously.) 


PLAY 


The PLAY command on the Oric has two distinct functions. The first is to 
enable and disable the various tone (and noise) channels allowing any of the 
three tone (or one noise) generators to be used simultaneously. The second 
is the shaping of the various envelopes. The syntax of this command is: 
PLAY TChannel, NChannel, Envelope, Period 

TC refers to the tone channels and NC refers to the noise channels. The 
PLAY command enables (i.e. turns on) any combination of the three 
channels (for noise or tone) using the values 1 to 7 as follows for TC and NC. 


® = Notone/noise channels on 
= Channel 1 on 

= Channel 2 on 

= Channels | and 2 on 

= Channel 3 on 

= Channels 3 and | on 

= Channels 3 and 2 on 

7 = Channels 3, 2 and 1 on 


NOB WDN = 


We have been using the MUSIC command without a PLAY command in all our 
previous programs. This is because Channel 1 is a special case and is ON 
unless the command PLAY 0, 0, 0, @ has been given. This does not apply to 
Channels 2 or 3 or any of the noise channels. In all programs from now on, a 
PLAY command is essential to the operation of the program. 

As an example of PLAY in action, run the program ‘CHORD’ which plays 
a C major chord of three notes until you stop the sound by hitting CTRLC. 
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9@ REMXkxk CHORD Xxx 
99 PLAY 7,0,98,0 

18@ MUSIC 1,4,1,5 
118 MUSIC 2,4,5,5 
120 MNUSIC3; 4,855 
14@ STOP 


This program uses PLAY like this: 

PLAY 7,0, 0,0 
All three tone channels are enabled (ON), all three noise channels are 
disabled (OFF). The chord could be reduced to a two-note chord by 
changing the PLAY command to activate only two channels: 


Channels 

(1+2) PLAY 3, 0, 0,0 
(3+2) PLAY 6, 0, 0,0 
(3+1) PLAY 5, 0, 0,0 


Another example of the use of PLAY is ‘ANDROIDS’, a ‘musical piece’ 
composed especially for this book. PLAY 3, 0, 0, 0 plus two MUSIC statements 
were used, making this a duet for Channels | and 2. 


5 REM xxx ANDROIDS xxx 

18 A=1 

5@ REPEAT 

68 LETA=At+1 

9@ READ x,Y 

100 PLAY 3,0,8,90 

11@ MUSIC 1,1,X,6 

120 MUSIC 2,4,Y,;5 

140 WAITI5 

15@ UNTIL A=193 

16@ RESTORE 

178 GOTO12 

1000 DATAI,8;8,8,1,;8,8,8,1,8,8,8,1,8,8;, 
8,1,8,8,8,1,8,8,8,3,6,19,5,3,;3,18,3 

1918 DATA 1,180,8,190,1,18,8,10,1,8,8,8,1 
»8,8,8,1,8,8,8,1,8,8;,8 

1@28 DATA 3,3,18,5,;3,6,18,6,1,18,8,18,1 
»18,8,10 
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1038 DATA 1,8;8,8,1,8,8,8,1,8,;8,8,1,8,8 
18;3,3,180,5,3,3,18,3 

1048 DATA 1,1,8,;1,;1,1,8,;1,15,;1,8,1 
915151,85;15,15;15,;8,15,1,15;85;1,15,1,8);1 

1058 DATA1,8,;8,8,1,8;,;8;8 ene eae 
8,1,8,;8,8,1,8,858, 

1868 DATA 1,18,8 

gre ee ied eee 

1078 DATA 3,3,18,5,3,6,18,6,1,18,8,19,1 
»10,;8,19 

1888 DATA 1,8;8,8,1,;8,8,;8,1,8,8,8,1,8,8 
18,3,3,18,5,;3,;3,10,3 


»1,1;8 


= os 
oO 
a 
o: 
Ww 
ae 
S 
my 


18085 DATA 1,15,8,1,;1,;1,8,;1,;15,1,;8,1,151;8 
115151,;8,15,1315;8,1,1,1,8; 1,1,1,8),1 
1898 DATA 333 18,3,3,;3,;1 Q,3,;5,;5,;12; Sis 5; 


9,12,5 

2000 DATA 6,6,1,6,6,6,1,6,1,1,8,1,1,1;8 
sl 

2818 DATA 3;3,18,3,3;3,18,3,5,5,12,5;5; 
5,12;5 

2028 DATA 6,6,1,6,6,6,1,6,1,1,8,1,15,1;8 
] 

b] 

2038 DATA 3,3; 18,3,;3,3,18,3,;5,5,12,;5;5; 
3512;5 

2040 DATA 6,6,1,6,6,6,1,6,1,1,8,1,15,1,8 
>] 

2058 DATA 3;35;18,3;3;3,18,3,;5,5,12,5;5; 
9,12;5 

206@ DATA 6,6,1;,6,6,6,1,6,8,8,3,8,8,8,3 
18 


This is another example of the use of DATA statements to hold the musical 
information. In this case the DATA consists of pairs of numbers, the first of 


which is the bass line, and the second the melody. 


Note that lines 1000 to 1040 are identical to lines 105@ to 1095, so you can 
save yourself some typing by using CTRL A (the copying function). Also lines 


1090 and 2000 can be copied for lines 2010, 2020 and 2030, 2040. 


You may encounter another potential problem with DATA statements at 
this point, since one error in copying will change the theme for a space 


western into avantgarde jazz! 
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Getting back to PLAY, you were probably wondering what the last two 
parameters, Envelope and Period, are all about. Those of you familiar with 
synthesiser theory may already be accustomed to the concept of a volume 
envelope, but for the rest of you we will take a few lines to tell you what they 
are all about. A volume envelope is simply a graph of volume against time. 
As examples we can take the sound of a snare drum against, say, James 
Galway (playing the flute). 


SNAREDRUM 
Uo Lume 
Time 
FLUTE 
Uo lume 
Time 


Percussion instruments such as drums and marimbas have rapid attacks 
(i.e. attain maximum volume quickly) and die away quickly, whereas 
flutes, violins, etc., have gentle attacks and sustain their volume for 
extended lengths of time (as long as Mr Galway’s breath holds out, for 
example). 

The crew down at Oric have supplied us with a selection of envelopes to 
choose from (seven in all) which they hope will serve any occasion. Whilst 
this is not entirely true, their system is certainly much easier to use than a 
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system of completely definable envelopes, which on one micro requires a 
separate statement containing up to fourteen parameters to define each one. 

Graphs for each envelope value have the shapes given below. Note that 1 
and 2 are finite (have a finish point), whilst envelopes 3 to 7 are continuous, 
and will sound a note until switched off. 


Envelope 1 
Cfinite) 


Envelope 2 ae 

Cfinite) 

Envelope 3 a eee. 
Ccont inuous) 

Ccontinuous) 

Envelope 5 

Ceont inuous J) aN 

Envelope 6 a 
Ceontinuous) ae 


Envelope 7 
Ccont inueus) 


The envelope Period can take values from @ to 32767 and controls how long 
the noise or note takes from start to end in the case of the ‘finite’ envelopes. 
For the continuous envelopes the Period controls the ‘length’ of the waves 
and is best understood by running the program ‘ENVELOPE TEST?’ and 
trying some different values for the Period. 


DS REM Xxx ENVELOPE TEST xxx 

8 CLS 

1@ INPUT"ENTER TONE CHANNEL 1,2 or 3"3T 
20 IF T<1 OR T>3 THEN 18 

38 INPUT"ENTER THE ENVELOPE MODE, @ TO 
2" 3M 

48 IF M<@ OR M7 THEN 32 
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9@ JNPUT"ENTER THE ENVELOPE PERIOD, 2 T 
9 32767" ;P 

68 IF P<@ OR P>3276? THEN 5@ 

7@ CLS 

8@ PRINT" CHANNEL" T 

3@ PRINT"ENUELOPE MODE"N 

1@@ PRINT ENVELOPE PERIOD"P 

11@ MUSICT,3,4,0 

128 PLAY T,8,M,P 

138 PRINT"PRESS RETURN IF SOUND CONTINU 
ES" 

14@ GOTOS 

S@3S IF N=G THEN N=1 


In line 110 of the program you will notice that the value for volume is set to 
0, with MUSIC T, 3, 4, 0. Setting volume equal to @ gives control over to the 
PLAY Envelope parameter. Any other value of volume will cause the 
Envelope parameter to be ignored. 

For Envelope type 1, Periods around 1000 will give a sharp banjo-type 
effect, whereas Periods of approximately 32700 give a sharp attack but slow 
decay. 

For Envelope type 6, a Period value = 19 gives an interesting machine- 
like effect. Hours of amusement can be had by all the family, seeing who 
can create the daftest sounds using the ‘ENVELOPE TEST’ program. 

Another vital PLAY command you must always have up your sleeve is 
PLAY 0, 0, 0, 0, especially if your wonderful musical composition has ended in 
an annoying whine that you can’t get rid of. Before you resort to the reset 
switch or pulling the plug please try the above. Another point to bear in 
mind is that the keyboard click will normally stop a persistent note but can 
also affect your program, so remember that it can be switched off (and on 
again) using CTRL F. 


SOUND 


SOUND is basically a cruder version of MUSIC without the tone channels 
arranged in semitones. It has the added bonus, however, of a noise 
generator, making it ideal for the creation of sound effects. The SOUND 
command has the format: 
SOUND Channel, Pitch, Volume 

Channel can take values between 1 and 6. 1, 2 and 3 refer to the three tone 
generators (as in MUSIC). 4, 5 and 6 specify which tone channel the noise is 
mixed into (and comes out of). There is only one noise generator, and it 
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outputs noise into Channel 1, 2 or 3 according to whether 4, 5 or 6 is 
specified. 

Pitch refers to the pitch of the tone or noise selected (i.e. the frequency). 
Unlike Note, Pitch is not arranged in semitones so is less useful for musical 
purposes. It can take values from 0 to 65536, where 65535 is very low and 
Pitch < 5 attracts dogs. The noise channels can also be selected for varying 
Pitches. This is an unusual but useful facility which is best described by 
reference to the program ‘WAVES’. 


188 REMKXk WAVES kx 
200 PLAY @,1,9,9 

205 2=INTCRNDC13*20) 
210 FOR I =@ TO 31 
220 SOUND 4,1,?7 

230 WAIT 2 

2408 NEXT I 

258 GOTO205 


As you can hear, the noise gives the impression of changing pitch. (It is not 
mixed with tone.) When applied to NOISE, Pitch can take the values 0 to 31, 
or any multiple of these values ( 32 — 63, 64 — 95, etc.), for a complete 
‘sweep’. Programs of this types are particularly effective when linked to 
graphics, but we’ll leave it up to you to conjure up images of waves rushing 
us a sandy shore! 

The final parameter in SOUND is, of course, volume. Volume is identical 
to its namesake in MUSIC statements and can take integer values from 1 to 
15. As before a zero value for volume gives the PLAY command envelope 
control. Just as with MUSIC, SOUND must always be used with a PLAY 
statement. (The exception being Channel 1 if used for tone only.) In 
‘WAVES’ Channel | was selected by using PLAY 0, 1 0, @ thus disabling the 
Channel | tone generator, but enabling Channel 1 for noise. The noise was 
selected in the SOUND statement by giving the Channel parameter the value 
of 4 (SOUND 4, I, 7). Setting the volume equal to @ allows the seven PLAY 
envelopes to be used as described in connection with MUSIC. 

Another function of SOUND with PLAY is multiple SOUND statements. 
This does not usually create chords as does MUSIC, but can be used to 
produce complex effects, such as the dynamic ‘TEN MILE ISLAND’. 


1@ REMXKXxk TEN MILE ISLAND xxx 
2@ FOR P=31 FO. <1. STEP =1 
48 SOUND 2,P+10@,15 

9@ SOUND 1,Px10,15 

6@ SOUND 3,;Px2+6,19 
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7@ SOUND 4,P;15 

188 PLAY7,1,0,0 

158 WAITS@ 

178 IF P=1 THEN EXPLODE 
208 NEXT 


This program uses four SOUND statements. The three tone statements 
change pitch at differing rates in different ranges while SOUND 4, P, 15 selects 
Channel | noise to sweep at maximum volume level. PLAY 7, 1, 0, @enables all 
three tone generators but only one channel of noise. The China Crisis 
nuclear power station melt-down situation is then terminated with the old 
faithful EXPLODE. This brings us back to where we started in our journey 
through the sound of music on the Oric microcomputer. The rest is up to 
you. The programs given can only provide indications of what is possible 
with your versatile and tuneful Oric. We hope you will have many hours of 
enjoyment creating music and noises to amaze your friends and annoy your 
neighbours. 


9 Oric BASIC 
keywords 


In this section each of the BASIC keywords is considered along with an 
example of its usage. Information is provided on the format for use with 
each command and the following standard symbols are used throughout: 


Vv represents a numeric variable name 

v$ represents a string variable name 

i,j represents integers or whole numbers 

n represents a floating-point or decimal number (which may be an 
integer), or the number resulting from evaluation of a numeric 
expression 

c represents a conditional logical expression, eg A>B or TRUE 

a$ __ represents a string or string expression 

In represents a program line number 

addr represents a memory location address 


To clarify the graphics commands we will also utilise the following 
symbols: 


fb the foreground/background parameter (0-3). See Chapter 7 for a full 
explanation of the various values. 

S this is the character set descriptor which is either 0 (for the standard 
set) or | (for the alternate set) 

X,Y represent x and y screen co-ordinates 


Other symbols will be used as appropriate. These will be defined within the 
body of the keyword definition. The BAsic Token values given are the 
decimal values which the Oric uses to store recognised BASIC keywords in 
single-byte form in memory. 


BASIC Token: 216 


ABS Format: ABS(n) 


Returns the absolute magnitude of the number or expression contained in 
brackets. For example ABs (-19) is 19. This function can clearly be of use 
when it is necessary to ensure a positive solution to a calculation of two 
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variables. For example, in the calculation (A-B), the difference will 
obviously only be positive as long as A is greater than B. However, ABS (A-B) 
will always return a positive value. 


1@ REM xxx ABS xxx 

20 FOR C=-50@ TO 10@@ STEP 150 

38 PRINT ABS(C), 

40 IF C<@ THEN PRINT "BC" ELSE PRINT "A 
p" 

3@ NEXT 

6@ END 


The example program above PRINTs out the date from S@OBC in steps of 
150. Without ABs this loop would generate negative BC years (e.g. 
— 350BC). 


1@ REM *kk ABS 2 Xxx 
2@ LET A=COSC(PI) 

3@ IF A=-1 THEN PRINT"COS(PIJ="3A 

4@ IF ABSCAt1)<1E-9 THEN PRINT"COS(PIJ= 
"3A3" WITHIN COMPUTER ACCURACY" 

5@ PRINT"SO "3A3"=-1" 


ABS is also useful in checking equalities since, due to inevitable inaccuracies 
in converting decimal to binary, and vice-versa, within the computer, 
rounding errors can occur. In the above program the computer calculates 
Cos(Pl) which is —1 but is not stored exactly in the computer’s memory. 
Using ABs in line 40 checks that the calculated value is correct within the 
limits of conversion errors. 


Related Keywords: SGN 


BASIC Token: 209 
AND Format: iANDi 


cANDc 


The BASIC keyword AND is a logical condition operator which works in 
much the same way as the common English usage of AND. When used to 
combine logical expressions it will give an answer of TRUE (=~—1) or FALSE (=0) 
depending, respectively, on whether both logical expressions are TRUE or 
not. It is often used in this way inside an IF statement to ensure that two 
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conditions are satisfied before a statement is executed. The first example 
program shows AND in use in this way where the GOTO statement at the end 
of line 40 will not be executed unless both A>12 and A<20. 


1@ REM xxx AND Xxx 

20 CLS:PRINT :PRINT 

38 INPUT “INPUT AGE" ;A 

48 IF AX12 AND A<20 GOTO 72 

3@ PRINT "YOU ARE NOT A TEENAGER" 
6@ END 

7@ PRINT" YOU ARE A TEENAGER" 

8@ END 


We can also use AND to combine the binary representations of numbers in 
the memory. When the command is used in this way each pair of corres- 
ponding bits along the two numbers in question is treated as a combination 
in the same way as above, with the bit in the resultant number being set if 
both the bits being combined were set. Thus 12 AND 9 (00001100 AND 
00001001) will give 8 (00001000). 


Related Keywords: FALSE, NOT, OR, TRUE 


BASIC Token: 236 


ASC Format: ASC(a$) 


Every character available on your Oric has a corresponding ASCII (pro- 
nounced as-key) code number. Thus when we create a line such as: 


10 P$=“M” 


the Oric does not actually store the letter M, but its ASCII equivalent (which 
in this case is 77). 

As the example program below demonstrates, ASC can also be used to 
monitor INPUT. Line 40 checks to see whether the first character of the 
string you have INPUT falls between ASciI codes 65 and 90. Since codes 
65-90 correspond to the capital letters the computer will only PRINT out any 
INPUT which starts with a capital letter. 


1@ REM xxkxk ASC Xxx 

28 CLS 

3@ INPUT "ANY STRING" :K$:CLS:PRINT =PRIN 
T 
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4@ IF ASCC(K$)>64 AND ASC CK$)<391 THEN P 
RINT K$ 

398 WAIT 180 

68 GOTO1@ 

70 NEXT 

8@ END 


Since they can function as line delimiters, this type of routine will only 


66 99 66,99 669999 60999 “co 99 


accept“,”’, j : > or if they are enclosed in double quotes. In 
case you are interested ASCII is actually an acronym for American Standard 
Code for Information Interchange, and a complete list can be found in 
Appendix 1. 


Related Keywords: CHR$, HEX$, STR$, VAL 


BASIC Token: 229 


ATN Format: ATN(n) 


This function returns the angle of any known tangent. It should be noted 
that the angle returned by the Oric is expressed in radians. The value 
returned will always lie within the ‘principal range’ for TAN of -PI/2 to PI/2. 
Thus ATN(1) will give P1/4 or 0.785398162 for the angle whereas any angle of 
the form p1/4+n*PI (where n is an integer) would also have a TAN of 1. This 
can be useful in graphics programs for calculating the angle of a line from 
the quotient of the differences of the x and y co-ordinates of its end points. 


1Q@ REM Xxx ATN Xxx 

2@ HIRES 

3@ INPUT "ENDPOINTS, X1;,Y1,X%2,Y2"5xX1571; 
X2,Y2 

4@ CURSET X1,7Y1;3 

5@ DRAW X2,Y2,1:WAIT 100 

6@ ANGLE=ATNC CY2-Y1)7CX2-X1)) = TEXT 

7@ PRINT"ANGLE IS" j;ANGLE ; "RADIANS" 

8@ PRINT"OR" ;ANGLEX18@/P1 ; "DEGREES" 

38 END 


Related Keywords: COS, PI, SIN, TAN 
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BASIC Token: 191 


CALL Format: CALL addr. 


This command transfers control to the machine code routine which starts at 
memory location addr. Return to BASIC is effected by using the machine 
code RTS instruction to end the routine. Using this command can result in 
the loss of your program if addr. is specified incorrectly and is not, in fact, 
the start of a machine code routine. Refer to the chapter on using machine 
code for a fuller appraisal of this command. 

Try the following command for an example of the potential danger and 
power of this keyword: 


CALL DEEK (#FFFC) 


This will transfer control to the cold start vector, re-starting the Oric as 
though it had just been turned on. Similarly CALLing the address returned 
by DEEK (#FFFA) will cause the Oric to perform a warm start as though you 
had pushed the Oric’s reset button. This can be handy to restore the 
original characters on exiting a program, or to avoid having to turn the Oric 
over. 


Related Keywords: DEEK, DOKE, PEEK, POKE, USR 


BASIC Token: 176 


CHAR Format: CHAR 1, s, fb 


For Oric owners with an interest in graphics or game playing CHAR is a 
godsend, since it enables characters to be positioned anywhere on the HIRES 
screen. CHAR prints at the current point position and used in conjunction 
with CURMOV and CURSET allows the programmer to place text or user- 
defined characters to an accuracy of a single point. In the format above n 
(32-127) represents the character’s ASCII code, s (0 or 1) is the set parameter 
which determines whether the standard or alternate set is to be used, and fb 
(@-3) is the foreground/background parameter corresponding to one of the 
effects listed below. 


@ Background colour 
1 Foreground colour 
2 Invert colour 

3 Null 


If you try to use CHAR on anything other than the HIRES screen the computer 
will throw up an error message. It should be noted that on the V1.1 the 
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maximum CURSET co-ordinates are x=234 and y=192, whilst on the V1.0 
maximum co-ordinates are x=232 and y=192. 


L 


1 REMKXXCHARXXx* 

S HIRES :C=@ 

18 FORA=8TO1S@STEPS@ 

28 CURSET48+A; 38,3 

38 DRAW28,9, 2 :DRAW@; 28, 2 
4Q@ DRAW-20,9, 2:DRAWG; -20, 2 
5@ CURMOV?,6;3 

68 CHAR49+C,4;2 

7@ C=Ct] 

88 NEXT 


Related Keywords: CURMOV, CURSET, HIRES, PLOT 


BASIC Token: 237 


CH R$ Format: CHR$(i) 


This function is valuable to Oric programmers for a number of reasons. 
CHR&(i) returns the character whose code is contained in the brackets. The 
number must be an integer in the range 0-255. However the use of this 
function extends far beyond the reproduction of the standard character set, 
and a quick glance through the complete list of AsciI codes in Appendix 1 
should reveal some of the potential of CHR$. For example the program 
below uses CHR$ to set the attributes which alter the foreground and 
background colours for the remainder of the PRINT statement line. 


1@ REM xxx CHR$Ci) xxx 
2@ PRINT CHR$(129) ; 

38 PRINT CHR$(15@); 

4@ PRINT " RED ON CYAN " 
5@ END 
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A couple of hours’ experimentation with this function used in conjunction 
with codes in the ranges 0-31 and 128-151 will reveal programming 
potential that you may never have expected from your Oric. 

Owners of the Oric printer will also find CHR$ valuable when used in 
conjunction with the LPRINT command. (See the control codes in Appendix 
7.) Used in this way, CHR$ enables characters outside the normal character 
set to be printed and offers users the opportunity to alter the print size. CHR$ 
is also used with standard printers to send control codes for various printer 
functions. 


Related Keywords: ASC, HEX$, STR$, VAL 


BASIC Token: 173 


CIRCLE Format: CIRCLE n, fb 


This command draws a circle in HIRES mode whose centre is the current 
cursor position. Thus CIRCLE is usually used in conjunction with the CURSET 
command. If any part of the CIRCLE leaves the screen, the Oric will throw up 
an error message. The first, integer, parameter is the radius in points 
(1-99) and fb is 0-3. In the example program, four sets of circles are drawn 
at four different cursor positions. The Oric then overdraws with fb set at 0 
(background). 

1@ REM *xkxk CIRCLE Xxx 

20 HIRES 

3@ FOR A=@ TO 3@ STEP 180 

4@ FOR B=1 TO @ STEP -1 

5@ CURSET 8@+A,120,2 

6@ CIRCLE A+3,B 

7@ NEXT B 

8@ NEXT A 

38 END 

Related Keywords: CURMOV, CURSET, DRAW, HIRES, PATTERN 


BASIC Token: 189 


CLEAR Format: CLEAR 


This command wipes the values of all variables currently in use. The 
example program PRINTs five variables, both numeric and string. Line 80 
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CLEARS the variables and lines 90 and 100 PRINT the null values (@ for 
numeric variables, and the empty or null string for string variables). 


1 REM *kx CLEAR Xxx 
2 CLS 

1@ A=5 

20 B=10 

38 C=20 

4@ PRINTA;B;C 
5@ C$="0R" 

68 Bs="IC" 

70 PRINTC$+B$ 
80 CLEAR 

98 PRINTA,B,C 
100 PRINTC$+B$ 


Related keywords: NEW, RUN 


BASIC Token: 182 
CLOAD Format: CLOAD “filename” (,S) 
CLOAD “”’ (,S) 
CLOAD “‘filename’’, J (,S) 
CLOAD “‘filename’’, V (,S) 


This command enables you to load a BASIC program or machine code file 
from a cassette. It can take a number of formats: 


CLOAD “” 


If the cassette contains only one program (or you are fairly sure about the 
location of a particular program) this format can be used since it loads the 
first complete program that it finds. Like all CLOAD formats the command 
must be accompanied by the optional ,s if the program was CSAVEd in the 
slow mode. 


CLOAD “‘filename”’ 


If you are searching for a particular program where the correct filename is 
known, the above format can be used in which “‘filename”’ is any name of up 
to seventeen characters in length. However it is advisable to keep filenames 
as brief and easy to remember as possible, because if you add or extract any 
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character, even a space, the program will fail to load. If you forget a 
filename you must use the first format (CLOAD “”) and plough through the 
entire cassette until you find the program for which you are searching. 

The V1.@ and V1.1 produce different messages. V1.0 Orics display 
SEARCHING.. on the status line until the specified program is encountered, 
and then LOADING. V1.1 Orics have more detailed messages. A file name is 
shown whenever a program is encountered on tape. Program names are 
followed by B, to indicate a BASIC file, and a saved memory block by c for 
machine code file. Files found but not to be loaded are noted with the 
message FOUND.. FILENAME followed by B or C, and the correct file gives 
LOADING.. FILENAME (B or C). The V1.1 will also display an ERRORS FOUND 
message if errors were detected on loading, and will inhibit AUTO-run if this 
was specified in the CSAVE command. 

If you have cSAVEd a block of memory locations under a particular 
filename you will have had to specify the beginning and end of that block in 
your CSAVE instruction. However, when CLOADing such a file only the file 
name is required. 

For owners of the V1.1, CLOAD can be used for two additional purposes: 


CLOAD “‘filename’’,J 


The above format allows you to join a second BASIC program to the end of a 
previously loaded program. However it must be stressed that all the line 
numbers in the second program must be higher than the largest line number 
in the first program. If this is not the case the program will not RUN because 
the duplicated line numbers from the second program will co-exist with 
their counterparts in the first. 


CLOAD “‘filename’”’,V 


This final format allows you to VERIFY that your program has CSAVEd 
correctly. By keying in the above statement and loading the program in the 
usual way, your original program remains in the Oric’s memory. When the 
program starts to load the Oric will print VERIFYING ‘FILENAME’ (or 
whatever your program is called) at the top of the screen, and if the loading 
process is successful you will get a ‘0 errors verified”’ message at the current 
cursor position. This indicates that the program has been CSAVEd satisfacto- 
rily and it is safe to wipe it from memory. (Although it is always wise to 
make more than one copy of any program.) If the program has failed to 
VERIFY, your original listing is still safe in the Oric’s memory and you will 
have to try and CLOAD/VERIFY again. If after a number of attempts the Oric 
still fails to come up with a “‘0 errors verified” report (and you have tried 
adjusting the volume and tone on your cassette recorder) you will be forced 
to conclude that the CsAVEing has been unsuccessful, and you will have to 
CSAVE again. 

It should be remembered that CSAVE and CLOAD operate in the fast mode 
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(baud rate 2400) unless the statement in which they are included ends with 
,S, which specifies data transfer in the slow mode (baud rate 300). If a 
program has been CSAVEd in the slow mode it can only CLOAD in the slow 
mode, so that final ,s must be included in the CLOAD statement. 


Related keywords: CSAVE, RECALL, STORE 


BASIC Token: 148 


C LS Format: CLS 


This clears the screen and sets it to the current background colour. As a 
general rule, it is advisable to start all text-based programs with a CLS, 
unless you have a good reason for wanting the program to remain visible on 
the screen. In the example program the Oric clears the screen twice. The 
first time in line 20, where the screen is emptied in preparation for the 
display, and secondly in 70, after the screen has filled with text. (This is the 
same as using CTRL-L.) 


1@ REM xxx CLS xxx 

20 PAPER @ : INK 5 =: CLS 
38 FOR A=@ TO 134 

408 PRINT"ORIC", 

3@ NEXT 

68 WAIT 180 

79 CLS 

88 WAIT 180 

38 GOTO 20 


Related keywords: HIRES, LORES, TEXT 


BASIC Token: 187 


CO NT Format: CONT 


This direct command is used to restart a program after a break. For 
example, while developing a program you will doubtlessly use CTRL-C to 
stop the action to examine screen displays or the status of a particular 
variable. In many instances you will not want to re-RUN the entire program, 
but allow it to continue from the point at which you stopped it. This is 
where CONT comes in useful and it is entered as a direct command. Note 
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that CONT will not allow you to restart the program if you have altered any 
part of the program. It must only be used as a direct command, since if 
included in the body of a program CONT will cause the program to crash. 


Related keywords: RUN, STOP 


BASIC Token: 226 


C OS Format: COS(n) 


Calculates the cosine of angle (n). It is important to remember that the 
number in brackets is expressed not in degrees but in radians. To convert 
radians to degrees, since 2*PI radians equals 360°, we multiply by 180/P1. The 
example below contrasts COSine and SINe curves. 


1@ REM xxx COSINE AND SINE Xxx 
2@ HIRES:PRINT :PRINT :PRINT 

38 INPUT "COS OR SIN" ;A$ 

4Q@ INPUT "VALUE C1 TO 99)"3V 

398 CURSET @,180,3:DRAW 239,@;1 
6@ FOR A=40960 TO 498739 STEP 40 
7@ POKE A; INTCRNDC1)*2)+16 

8@ NEXT 

98 FOR A=-PI TO PI STEP 8.82 
100 IF A$="COS" THEN B=COSCA) 
118 IF A$="SIN" THEN B=SINCA) 
128 CURSET AX38+) 20, (BkUJ+99, 1 
13@ NEXT 

140 PRINT A$ " CURVE" :WAIT 188 
150 INPUT "RETAIN PRESENT CURVE CY/N)"; 
M$ 

160 IF M$="Y" THEN 38 

178 GOTO20 


Related keywords: ATN, PI, SIN, TAN 
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BASIC Token: 183 
CSAVE Format: CSAVE “filename” (,S) 
CSAVE “‘filename’’, A addr., 
E addr. (,S) 


This command is used to save a program or a series of memory locations on 
to cassette. It can take a number of formats: 


CSAVE “filename” 


This is the most common construction in which “filename” is any name of 
up to seventeen characters in length. The use of this instruction will save 
the current BASIC program, which will be stored under the specified 
filename. Like all CSAVE commands it can be followed by an optional 
comma § (,S). This will save the file in the ‘slow’ mode. Whilst the Oric 
CSAVES reliably in both the slow and fast modes, it is always worth making at 
least one copy of any important program in the slow mode. 


CSAVE “filename”, AUTO 


This works in exactly the same way as the first example, except that once the 
program has been re-loaded into the Oric, it will RUN AUTOmatically. 

It is also possible to save the contents of any sequential block of memory 
locations, using A followed by the start address (in hex or decimal), to 
specify the beginning of the block, and E to specify the end address. Take 
the example of a TEXT or HIRES screen that you might want to preserve. The 
CSAVE format for such an operation is as follows (48k, 16k take 32768 from 
addresses): 


For the HIRES screen: 

CSAVE “filename”, A40960, E48000 
For the TEXT/LORES screen: 

CSAVE “filename”, A48000, E49119 


Related keywords: CLOAD, RECALL, STORE 


BASIC Token: 171 


CU R MOV Format: CURMOV«x, y, fb 


This command shifts the cursor to a new position in HIRES mode. The 
values of x and y are not absolute values, but relative to the current cursor 
position. fb is @, 1, 2, or 3. CURMOV is useful when simulating motion on the 
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screen, and indeed in the generation of most graphics routines. The simple 
example below shifts a circle across the screen and then uses the fb quantity 
to erase it again. 

10 REM xxx CURMOU xxx 

20 HIRES: INK 5: PAPER 4 

38 FOR C=@ TO 100 STEP 20 

4@ FOR B=1 TO @ STEP -1 

3@ CURSET 20,50+C,@ 

68 FOR A=8 TO 38 

7@ CIRCLE 18+A;,B 

88 CURNOU 5,8,@ 

98 NEXTA 

180 NEXTB 

11@ NEXT C 


Related keywords: CIRCLE, CURSET, DRAW, HIRES 


BASIC Token: 170 


CU RSET Format: CURSET x, y, fb 


This determines the absolute x, y position of the cursor in HIRES mode. To 
stay within range, the final position of x must be between 0 and 239, whilst y 
should be between @ and 199. As always fb is an integer 0-3. Since the 
Oric’s CIRCLE command places the centre of the circle at the current cursor 
position, the short program below is the perfect demonstration of this 
command in action. 


10 REM Xxx CURSET Xxx 
20 HIRES: INK S:PAPER 4 
38 FOR C=@ TO 10@ STEP 20 
40 FOR B=1 TO @ STEP -1 
3@ CURSET 280,58+C,@ 

6@ FOR A=8 TO 30 

7@ CIRCLE 10+A;B 

88 CURMOV 5,8,0 

38 NEXT A 

18@ NEXT B 

11@ NEXT C 


Related keywords: CIRCLE, CURMOV, DRAW, HIRES 
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BASIC Token: 145 
DATA Format: DATAn,n,n,... 


DATA 2$, a$, a$,... 


This instruction precedes and defines a list of DATA which, when used in 
conjunction with READ, can be READ into variables. The list can take the 
form of numbers, words or letters, and if you wish to preserve leading 
spaces the DATA must be enclosed in quotes. DATA statements can be 
positioned at any point in a program, regardless of where they are actually 
READ. If you wish to include a comma in a DATA statement as part of the 
DATA item it must be enclosed in quotation marks. It is essential that the 
DATA is matched by an appropriate variable — i.e. numeric for numbers, 
string for words, letters and symbols. DATA is READ strictly in the order in 
which it appears in a given DATA statement. Only on implementing the 
RESTORE command can the pointer be returned to the beginning of the DATA 
line. In the example program the DATA in lines 70 and 90 are READ in line 20 
and PRINTed in line 30. 


1@ REM Xxx DATA Xxx 
2@ FOR I=1 TO 2: FOR J=1 TO 2:READ A$, 
A 

38 PRINT A$;A 
4@ NEXT 
S@ NEXT 
6@ END 
7@ DATA "HELLO",1,"ALL",;2 
38 DATA "ORIC",3; "OWNERS"; 4 


Related keywords: READ, RESTORE 


BASIC Token: 231 


D E E K Format: DEEK(addr.) 


This function allows us to examine the value stored in memory in the two 
locations at addr and addr+1. It computes automatically the value 
(@-65535) stored in the double byte specified. The standard format that the 
6502 processor uses for storing addresses is as two bytes with the first being 
the least significant. What DEEK does is to take the value stored in the 
second, most significant, byte from addr+ 1 and multiply it by 256 then add 
the value of byte stored at location addr. In the explanation of CALL we saw 
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how DEEK could be used to examine addresses stored in the computer’s 
ROM. As a further example of the use of DEEK we can use DEEK(#A6) to 
examine the current value of HIMEM which is not normally accessible. 


Related keywords: CALL, DOKE, PEEK, POKE, USR 


BASIC Token: 184 
D E F Format: DEF FNv(z)= exp 
DEF USR=addr. 


DEF EN is used to DEFine a numeric FuNction. The Oric is equipped with a 
number of its own predefined numeric functions, but the DEF FN command 
allows you to build your own defined functions into a program. Essentially 
DEF FN can be used to avoid reproducing a line which performs the same 
calculation each time that particular calculation is required. In the format 
line above, v (a single-letter variable name) completes the name by which 
the function can be recalled (using the FN command), later in the program. 
The z in brackets is the name which is used for the argument in the function 
and is known as the dummy variable. The (exp) following the equals sign 
represents an expression using z (the dummy variable). This is the calcul- 
ation which will be carried out upon the argument passed by the FN call. In 
the example below the loop determines the value of A which is used as the 
argument in the function call. 


1@ REM xxx DEF xxx 

2@ DEF FN MC2)=276x2 

3@ FOR A=10 TO 100 STEP 18 
4@ PRINTFN MCA) 

3@ NEXT 


DEF USR is used to DEFine the starting address for a USeR supplied machine 
code routine. This is discussed in the section on USR. 


1@ REM xxx DEF USR xxx 

20 DEF USR=5120 

38 FOR I=8@ TO 17 

40 READ A:POKE 5120+I,A 

5@ NEXT 

68 DATA 162,5,189,12,28, 157,128, 187, 282 
1208, 247,96 

78 DATA @, #48, #45, #4C, #4C, #4F 
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88 REPEAT 

98 DUNMNY=USR(8) 

108 WAIT 5S@ 

110 FOR I= 480801 TO 48806 
120 POKE 1,32: WAIT 10 
130 NEXT 

148 WAIT 5 

15@ UNTIL FALSE 


Related keywords: FN, USR 


BASIC Token: 147 
DIM Format: DIM vii,j,...) 
DIM v%(i,j,. . -) 
DIM v3(i, j,. . .) 


The DIM instruction is used to DIMension arrays. Arrays allow us to store 
floating point numbers, integers or strings as elements in a one dimensional 
array (a list), or a multi-dimensional array. A simple list of six integer 
numbers, for example, has space allocated in memory for storage with the 
instruction: 


DIM A%(5) 


The array variable (A in this case) must be a single letter for all arrays. The 
array A%(5) has six elements, numbered 0 to 5, which can be assigned values 
with statements such as: 


LET A%(3)=276 


String arrays are designated by a $ sign after the variable name, e.g. D$(3), 
and floating-point numeric arrays have just the single-letter variable name, 
such as T(8). 

The Oric will allow the use of arrays with 11 or less elements (subscripts 0 
to 10), without the use of a DIM statement. This is done simply by assigning 
a value to one of the elements of the array. The use of an instruction such as 
LET N(5)=6 will automatically create an array N(10) and assign the value 6 to 
the sixth element N(5). If we wish to use arrays that have a greater number of 
elements then a DIM statement is required. Arrays are usually DIMensioned 
at the beginning of a program, and once a particular array has been created 
using DIM it may not be changed at any subsequent point in the program, or 
a REDIM’D ARRAY error is produced. The following program uses DIM to set 
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up the string array D$(7), assigns a value to each element using READ and 
DATA, and then displays a list of the contents. 


18 
20 
30 
40 
sa) 4) 
68 
DIM 
78 
88 


REM XXX DIM Xxx 

DIM D$C7) 

FOR I=1 TO ? 

READ D$CI) 

NEXT 

DATA. “ORUG. "CAL. "POR 4 BEFINs. © 
", "ALPHA"; "EXAMPLE " 

FOR A=1 TO 6 

FOR B=A TO 7 


98 IF D$CAJ<D$(B) THEN 118 

180 T$=D$CA) :D$CAJ=D$(B) :DS$CBI=TS 
110 NEXT 

120 NEXT 


13@ FOR I=1 TO 7? 

14@ PRINT D$C1); 

15@ NEXT 

16@ END 

Arrays with more than one dimension may be used. In the example 
following, a two dimensional array of integers, N%(3,4), is DIMensioned, 


values assigned to the elements and then the array is printed out as a 4 
column by 5 row table. 


18 
20 
38 
40 
38 
628 
70 
82 
32 
188 
118 
128 
130 
148 


REM XXX DIM xxx 
DIN N4%C3,4) 

FOR A=8 TO 3 
FOR B=@ TO 4 
N% CA; BJ=AX10+B 
NEXT 

NEXT 

FOR K=@8 TO 4 
FOR J=0 TO 3 
PRINT N*¥CJ;K); 
NEXT 

PRINT 

NEXT 

END 
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String arrays can have each element up to the maximum string length of 255 
characters. The maximum number of DiMensions allowed in an array is 255 
also, and since you can have multi-dimensional arrays, the practical limit to 
the number of array elements you can play around with is determined by 
your Oric’s memory. Remember that arrays eat memory quickly, and do 
not use unnecessary arrays. 


Related keywords: None 


BASIC Token: 138 


DO K E Format: DOKE addr.,i 


This command is used to store a double byte, or integer, value (in the range 
065535) in memory. The first parameter is the address of the first byte of 
the two bytes in which we wish to store the value, and the second integer 
parameter in the format is the value to be stored. The format in which it is 
stored is the normal 6502 lo-byte, hi-byte representation (see machine code 
chapter). If we wished to store 770 in the memory we could use the 
command: 


DOKE 30000,770 


This would have the effect of storing 2 in location 30000 and 3 in location 
30001 since 770 is 3*256+2. 


Related keywords: CALL, DEEK, PEEK, POKE, USR 


BASIC Token: 172 


DRAW Format: DRAWx,y, fb 


This is one of the Oric’s graphics commands which can only be used in the 
HIRES mode. DRAW is used in conjunction with CURMOV and CURSET, and 
DRAWs a Solid line from the current cursor position to a point x points along 
the x-axis, and y points along the y-axis. Thus the x and y co-ordinates 
specified in a DRAW statement are not absolute (i.e. they do not represent 
the literal co-ordinates of the Oric’s screen), but are relative to the current 
cursor position. Thus x must be in the range 0-199 and y in the range 0-239. 
Note that if your DRAW statement takes the line off the screen an error 
message will be produced. As usual, the fb code falls between @ and 3 (see 
individual entry for CHAR). 

Whilst DRAW normally produces a solid line on the screen, by coupling it 
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with PATTERN the line can be converted into dots and dashes of a specified 
density. (See PATTERN). 

For a dramatic demonstration of DRAW in action, see the example 
program for HIRES. 


1 REM xkx DRAW xxx 

2 HIRES :PAPER6: INK] 
1@ FORA=10TO23@STEP12@ 
20 CURSETA;@,0 

38 DRAW@, 199, 1 

35 WAIT20:PING 

4Q@ NEXT 

98 FORY=1@0TO19S8STEP19@ 
6@ CURSET@,Y,@ 

7@ DRAW239,@; 1 

23 WAIT20:PING 

8@ NEXT 


Related keywords: CIRCLE, CURMOV, CURSET, HIRES, PATTERN 


BASIC Token: 129 


EDIT Format: EDIT In 


This instruction enables you to bring the line specified by In down below 
the current cursor position for editing. Whilst it is possible to edit a 
particular line on screen after you have LisTed it, since any insertions must 
be keyed-in on lines above or below the line which is being edited, it is 
considerably easier to be sure of what you are adding when the line is free of 
the rest of the program. 

In either instance, the cursor movement keys are used to position the 
cursor at the beginning of the line to be altered and CTRL-A to copy those 
sections of line that you wish to preserve. The insertion of characters is fully 
explained in Chapter 2, but essentially it involves keying-in the required 
characters in the correct position on the line above or below the edited line, 
reversing the movement of the cursor to re-enter the line at the desired 
point, and then copying any other correct portions until all is finished, 
when RETURN is pressed. 


Related keywords: LIST 
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BASIC Token: 128 


E N D Format: END 


This command can be used to stop a program if you want to avoid the 
““BREAK IN In” message which the Oric gives when the STOP command is 
used. Whilst it is usually placed in the last statement of a program, there are 
a number of circumstances in which its use can allow a program to crash 
with grace when incorrect data is input. The example program demons- 
trates END being used for this purpose. 


1@ REM xXxkxk END Xxx 

20 REPEAT 

3@ INPUT "NUMBER" 5NUM 

4Q@ IF NUM<=@ THEN END 

5@ PRINT"NATURAL LOG OF" 3NUMN;"IS" ;LNCNU 
M3 

6@ UNTIL FALSE 


Related keywords: sToP 


BASIC Token: 225 


EX P Format: EXP(n) 


This is another of the Oric’s many mathematical functions. EXP(n) returns e 
(=2.7183) to the power of n. It is often used in conjunction with LN (log,), 
since EXP(LN(n)) gives the antilog value. 


1@ REM Xxkxk EXP Xxx 

2@ HIRES 

38 CURSET 38;30,9 

48 DRAW @,150,1:DRAW 190,0,1 
5@ FOR N=@ TO 5 STEP .@25 
60 X=N*40+30 

78 Y=180-EXPCN) 

8@ CURSET X;7Y;1 

398 NEXT 

18@ END 


Related keywords: LN, LOG 


128 Oric BASIC keywords 


BASIC Token: 164 


EXPLODE Format: EXPLODE 


This is one of a number of pre-defined sounds available on the Oric. They 
are primarily of value in arcade-type games, but can also be used as prompts 
in more serious programs. Creative use of delays (WAIT) can also be used to 
extend their potential. WAIT delays must be used if repeated EXPLODEs are 
required. 


1@ REM XXX EXPLODE xxx 
20 HIRES: PAPER 3 : INK 4 
38 FOR B=@ TO 95 STEP 4 
4@ CURSET 128,2+B,@ 

3@ GOSUB 200 

6@ CURSET 128,190-B,@ 
7@ GOSUB 2828 

8@ NEXT 

9@ EXPLODE 

10@ FOR K=1 TO 10 

11@ PAPER 4:INK 3 

120 WAIT K 

13@ PAPER 3:INK 4 

140 WAIT K 

15@ NEXT 

160 WAIT 280 

178 GOTO 208 

18@ END 

200 FOR I=1 TO 3 

21@ CHAR 100,1,1:CURMOV 6,8,@ 
228 NEXT 

230 RETURN 


Related keywords: PING, SHOOT, ZAP 


BASIC Token: 240 


FA LS E Format: FALSE 


If you use your Oric to deal with data, there are certain circumstances under 
which it will take a decision as to whether something is TRUE or FALSE. 
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1 REM *xXxk FALSE Xxx 

18 FOR A=11 TO 20 

2@ IF A<1@ THEN PRINT TRUE ELSE PRINT F 
ALSE 

38 NEXT 

4@ END 


The result of the above program is unspectacular, but in the Oric’s terms 
quite understandable. Since the 10 in line 20 can never be equal to A (as the 
loop starts at 11), the Oric simply prints out ten zeros. This is because @ is 
the computer’s representation of FALSE. Thus whilst it is possible to replace 
FALSE with zero in a program, in a complex jungle of code this function can 
serve to clarify a listing. Thus: 


1Q REM Xkk FALSE 2 Xxx 
20 A=10:B=1 

3@ REPEAT 

4@ PRINT CA>B) :B=B+1 
5@ UNTIL FALSE 


will print out nine —1’s (which is the Oric’s representation of TRUE), before 
the statement in line 4@ that A is greater than B becomes untrue when A=B 
(i.e. 1@=10). From this point on the Oric will churn out an endless line of 
zeros. So whilst the FALSE in line 50 could be replaced by @ without making 
any difference to the running of the program, it should be clear that the use 
of FALSE considerably clarifies what is actually going on in the program. 


Related keywords: TRUE 


BASIC Token: 175 
FILL Format:. FILL, iu 


This is another of the Oric’s graphics commands. It enables you to FILL 
specific locations on the HIRES screen with a particular value. The Oric’s 
screen is composed of 200 lines with 40 locations per line. Following the 
above command format, FILL fills i, lines of i, bytes with the value of i3 at the 
current cursor position. Thus 1, is in the range | to 200, iz is in the range | to 
40 and i3 must be between 0 and 255. 

FILL is usually used to colour different sections of the Oric’s screen with 
specific colours. Its role in the suite of graphics commands available on the 
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Oric is fully explained in Chapter 7, whilst the example program under the 
individual entry for HIRES shows FILL in action. 

Owners of the V1.0 may find that after FILL has been used the cursor may 
not have kept pace with the screen display. This bug has been corrected in 
the V1.1, but V1.0 users may have to take account of this quirk when 
planning their screen displays. 


1 REM Xxx FILL xxx 

3 PAPER 

1Q@ HIRES :PRINTCHR$(C17) 

2@ REPEAT 

38 X=INTCRNDC1)X2313) 

4@ Y=INTCRNDC1)X175+7) 

5@ A=INTCRNDC13XC236-X)76+1) 

6@ D=INTCRNDC1)*C182-Y)+8) 

7@ CURSETX+6,7Y-7,@0:FILL Dt7,A;, 16 
8@ CURSETX,Y,@:FILL D,A, €17+RNDC1)%7) 
3@ UNTIL FALSE 


Related keywords: CURSET, CURMOV, HIRES 


BASIC Token: 196 
FN Format: FN v(n) 


FN followed by a variable name can only be used in a program if it has been 
preceded by DEF FN, since it refers to a function which has been defined 
earlier in the program. For a full description of user-defined functions refer 
to Chapter 4 and the individual entry for DEF. The following example shows 
FN in action, converting radians into degrees. 


1@ REM XxX FN Xxx 

2@ DEF FNDEGCRIJ=RX1807PI 

30 REPEAT 

4@ INPUT "RADIANS" 5A 

3@ PRINT "="5FNDEGCA) ;"DEGREES" 
6@ PRINT 

7@ UNTIL A=999 

8@ END 


Related keywords: DEF 
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FOR...TO...(STEP) 
NEXT 


BASIC Token: 141...195... (203) 
144 
Format: FORv=nTOn(STEPn) 
NEXT v 


Much of a computer’s activity revolves around the repetition of simple 
tasks. In BASIC the construction of loops is one of the means by which such 
repetition can be effectively implemented. FOR . . . NEXT loops are the 
commonest implementations of such a construction. 

A FOR... NEXT loop forces the computer to execute the statements 
contained within it a specified number of times. For example: 


10 FOR A=1 TO 3 
20 PRINTA 
30 NEXTA 


The above loop will PRINT out the numbers 1, 2, 3. Let’s follow it through 
and see how it works. First time through the loop the computer takes the 
variable A and assigns it the value 1 which it then PRINTs in line 20. It then 
continues until it reaches the word NEXT, and then returns to line 10. This 
process is then repeated, with the value of A being incremented by one with 
each pass of the loop until A=3. At this point the looping is complete and the 
program moves on and executes the line following the NEXT statement. 

In the above example, the variable is incremented in steps of 1, which will 
always be the case unless the program specifies otherwise. You can use the 
optional word STEP to alter the STEP size. 


10 FOR X=5 TO 20 STEP 5 
20 PRINT X 
30 NEXT 


The above loop would PRINT out 5, 10, 15, 20. You may have noticed that in 
line 30 the name of the variable has been omitted following NEXT. Oric 
BASIC permits such an omission, but for the sake of clarity it is usually wise 
to leave the variable name in, especially if your program contains loops 
within loops. 

It is possible for a STEP size to be negative. Thus: 


10 FOR A=20 TO 5 STEP —5 
20 PRINT A 
30 NEXTA 
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is an acceptable construction. The STEP may also be non-integer. We can 
use: 


10 FOR F=1 TO 2 STEP .2 
20 PRINT F 
30 NEXT F 


The start, finish and STEP values may all be non-integer, variables, or 
calculated expressions. 
5 A=56: C=PI/2 
10 FOR X=2*4 TO A/3 STEP C 
20 PRINT X 
30 NEXT X 


Related keywords: REPEAT, UNTIL 


BASIC Token: 218 
F R E Format: FRE(@) 


FRE” 


This instruction has two formats for two distinct functions. In the com- 
mand formats above, the first example returns the number of memory bytes 
still available at any given moment in a program’s development. 

The second format example forces what is known as “‘garbage collec- 
tion”. This is simply a means of tidying up the storage of strings (starting 
from just below HIMEM and working down). This is useful if you are 
reassigning strings which quite conceivably will be shorter when they take 
their new value. However, whilst their value has been re-established, the 
amount of memory given over to the new and shorter string will remain the 
same (so the Oric is effectively storing redundant spaces). If the new strings 
are longer, they will have to be stored elsewhere, leaving the entire space 
originally allocated to the old value empty. By using FRE“” you effectively 
shunt the stored strings together and do away with the wasted space. 

The example program below demonstrates this “garbage collection”’ at 
work: 


1@ REM Xxx FRE Xxx 
20 PRINTFRECQ) 

38 AS="A" 2 BS="B" 

4@ REPEAT 

38 AS=AStAS > BS=BS+AS 
68 UNTIL LENCA$)=128 
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7@ PRINTFRECQ) 

8@ PRINT"NOW WE TIDY UP" 
98 ASH" " BSH" 

1@@ PRINTFREC'"') 

Related keywords: None 


BASIC Token: 190 
G ET Format: GET v$ 


GET v 


‘Press any key to continue’ (or a variation on it), is one of the most common 
instructions facing users of interactive programs. Well, if the program is 
written in Oric BASIC it’s more than likely that GET (followed by a string 
variable) is holding up the program until you are ready to go on. It has some 
similarities with INPUT. GET stops the program and will not allow the Oric to 
continue until a key is pressed. In the statement: 


100 GET A$ 


the character of the first key pressed will now be stored in as. However, 
unlike INPUT, GET does not require RETURN, but automatically continues to 
the next line of the program as soon as a key is pressed. Thus GET A$ will 
only allow the value of a single character to be stored in A$. GET followed by 
a numeric variable name can be used to GET a single digit from the 
keyboard, but will give an error if a non-numeric key is pressed. 

As this example program demonstrates, GET is useful in menu-driven 
programs which only require single key entry: 


1 REMKXXGETXXxX 

5S HIRES :C=RNDC13xX6+1:INKC:PAPERG 

1@ FORA=18 TO 5@ STEP 18 

20 CURSETS@+CAXK2),96,3 

38 CIRCLE1@+A;2 

4@ NEXT 

5@ PRINT"PRESS ANY KEY TO RUN AGAIN" 

66 GETA$ 

7@ GOTOS 

GET differs from its sister command, KEYS, in that whilst the former actually 


stops the program until a key is pressed, the latter scans for input but passes 
on to the next line whether or not a key is pressed. 


Related keywords: INPUT, KEY$ 
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BASIC Token: 155 
G OSs U B Format: GOSUB In 


GOSUB v 


This is one of the most valuable commands in BASIC. GOSUB is similar to 
GOTO in as much as it forces the Oric to execute instructions from a specified 
line number instead of following the program’s line numbers in sequence. 
However, unlike GOTO this instruction stores a return address in the 
computer’s memory stack. This means that GOSUB In will cause the program 
to jump to line number In and execute all subsequent operations until a 
RETURN Statement is encountered. At this point the program will RETURN to 
the statement following the line containing the original GosuB. The line 
number in the GOSUB expression may also be a variable or the result of 
evaluating an expression. The parts of a program which are accessed (or 
‘called’) by a GOSUB statement are known as subroutines. 
The destination of RETURN can only be altered with the use of the pop 
command (see PoP in this section). 
An intelligent use of subroutines can greatly enhance the efficiency and 
clarity of a program. 
1 REMKXXGOSUB*xXx 
18 CLS :C=@ 
2@ PRINT"ENTER A NUMBER ¢22" 
38 INPUTN 
4@ IFN>38THENGOSUB25@ 
5S@ IFC=1THEN1@ 
6@ GOSUB12@ 
7@ PRINTF :GOTO312 
108 REMXXXSUBROUT INE 1xxx 
118 IFN 1THEN14@ 
120 F=1 
138 GOTO182 
14@ N=N-1 
15@ GOSUB1989 
16@ F=FXC(N+1) 
178 N=N+1 
18@ RETURN 
19@ REMXXxXENDSUBXxXx 
280 GOTO318 
25@ REMXKXXSUBROUTINE 2xxx 
260 CLS:C=1 
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270 PRINT"OBEY INSTRUCTIONS’ TRY AGAIN. 
280 WAIT300 

238 RETURN 

388 REMXXXENDSUBXXx 

31@ END 


Related keywords: GOTO, ON, RETURN 


BASIC Token: 151 
GOTO Format: GOTOIn 


GOTO v 


Normally the control sequence of a BASIC program is via the numbered 
statements — ie from the lowest to the highest. The use of GOTO interrupts 
this sequence and directs control to the line number specified. 

It is traditional to stress that GOTO should be used with care, as it is a 
particularly powerful command. GOTO is more often than not used to 
‘patch’ a poorly structured program. Under such circumstances programs 
become difficult to follow and errors tough to trace. In short, if you find that 
you are using a large number of GoTOs then your program is almost 
certainly badly conceived. 

Oric BASIC allows the line number to which the GOTO directs control to be 
a variable. For example: 


60 GOTO A 
70 GOTO A+B 


GOTO can also be used as a direct command. For example, GOTO 90 executes 
the program from line 90, retaining any values previously assigned to 
variables. In this respect it differs from RUN 90 which clears the variables 
before execution. 


1Q REMKXxXGOTOXXx 

20 CLS:GOTO 48 

38 END 

4Q GOTO 1088 

5@ PRINT"PROGRAM " ; 
6@ GOTO3@ 

7@ PRINT"A POOR "3 
88 GOTO 200 
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3@ PRINT"DEMONSTRATES "; 

1@@ GOTO 72 

200 PRINT"USE "3 

218 GOTO 1820 

38@ PRINT"GOTO’" 

318 GOTO 32 

1080 PRINT:PRINT:PRINT'THIS "3; 
1810 GOTO 52 

1820 PRINT"OF "; 

1838 GOTO 382 


Related keywords: GOSUB, ON 


BASIC Token: 159 


G RAB Format: GRAB 


A large proportion of the Oric’s memory area is reserved for the HIRES 
screen. If you are developing a lengthy BASIC program which does not 
require use of the HIRES, it is possible to regain the HIRES dedicated memory 
area with the use of GRAB, which is normally entered as a direct command. 
(GRAB can also be used in the body of a program when extra memory may be 
needed for the storage of arrays. ) 

Once this command has been activated you will be unable to utilise the 
Oric’s HIRES screen until the section of memory in question (bytes #9800 to 
#B400 on the 48K Oric and #1800 to #3400 on the 16K machine) has been 
turned over to the HIRES mode once again. This can be achieved by 
activating RELEASE which is entered as a direct command. 

1 REMXXXGRABXxXx 

9 CLS 

1@ PRINT"HOW MUCH NEMNORY?" =: PRINTFRECQ 
) 

2@ PRINT"NOW WE GRAB SOME MORE SPACE" 

328 GRAB 

5@ PRINTFREC@) 

6@ PRINT "NOW WE’LL GET RID OF IT AGAIN 

7@ RELEASE 

8@ PRINTFRECQ) 

3Q@ PRINT"SEE ?" 


Related keywords: HIRES, RELEASE 
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BASIC Token: 220 


H EX$ Format: HEX$(i) 


The hexadecimal number system is one much favoured by computers. 
Unlike the decimal system with which the majority of humans are familiar 
which is based on 10’s, the hexadecimal system operates with a base of 16 
digits: 


0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 


A-F in the hexadecimal system are equal to 10-15 in decimal. HEX$(i) allows 
us to convert the decimal integer in brackets into its hexadecimal (hex for 
short) equivalent. Thus HEXx$(15) will return #F (the hash sign simply 
stands for hexadecimal). The decimal number in brackets can be any whole 
number between 0 (#0) and 65535 (#FFFF). The Oric will throw up a 
‘BAD SUBSCRIPT’ message if you try to convert negative numbers or 
fractions. 

Whilst it is unlikely that you will use this function unless you are fairly 
well acquainted with the hexadecimal system, it is worth understanding 
how to convert a hex number into its decimal equivalent. Since the decimal 
system uses the position of each digit to represent powers of 10 
(eg. 522=(5*107)+(2*10')+(2*1)), you will not be surprised to learn that 
the hexadecimal system follows much the same principle except that the 
position of the digits in a hex number indicate powers of 16. Thus: 


46E=(4*167)+ (6*16!)+(14*1)=decimal 1134 


Related keywords: STR$, VAL 


BASIC Token: 158 


H I M E M Format: HIMEM addr 


This command gives you the capacity to reserve a portion of your com- 
puter’s memory to store machine code programs. 

Normally, the Oric splits up the available memory space as efficiently as 
possible to store your programs, their variables and whatever memory 
space is required for graphics displays. Under these conditions the user has 
no control over the manner in which the machine divides up its memory. 
However, when using machine code subroutines the programmer must 
allocate a section of memory exclusively for the storage of the machine code 
so that it will be unaffected by the storage of the BASIC code determined by 
the computer. 
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Thus HIMEM sets the address of the highest memory location available to 
that portion of a program written in Oric BASIC. HIMEM should be set at the 
very beginning of a program, and the command should always be used with 
a great deal of care. 


1Q@ REM Xkxk HIMEM xxx 
2@ PRINT "HIMEM IS CURRENTLY" ;DEEKC#A6) 
38 GRAB 
4@ PRINT "AFTER GRAB IT IS" ;DEEKC#A6) 
5@ RELEASE 
6@ PRINT "AFTER RELEASE IT’S" ;DEEKC#A6) 
7@ HIMEM 3880 
8@ PRINT"OR WE CAN SET IT TO ANY VALUE 
Ea 
938 PRINTDEEKC#A6) 


Related keywords: GRAB, RELEASE 


BASIC Token: 162 


H l R ES Format: HIRES 


This command converts the Oric’s TEXT or LORES screens into the high 
resolution screen. It is this screen which most effectively utilises the Oric’s 
sophisticated graphics facilities. When the command is activated the first 
twenty-four lines of the screen change into a black background of 240x200 
points. The bottom three lines remain in the normal TEXT mode which the 
computer uses for messages in the usual way. 

Like all graphics screens, HIRES consumes a great deal of the Oric’s 
memory, which can reclaimed for a BASIC program with the use of the GRAB 
command. However, if this facility has been used you will be unable to 
operate in the HIRES mode until you use RELEASE to make the memory 
available for HIRES once again. 

When you are developing a program which uses HIRES you will be unable 
to LIST or EDIT the program in the normal way since it will not print on the 
HIRES screen. Each time you RUN the program you will have to return to the 
TEXT screen before you can examine your listing. 

The commands listed below up and including FILL will only operate 
when the Oric is in the HIRES mode, whilst the program which follows puts a 
number of them to good use: 
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1@ HIRES 

2@ CURSET 14,10,3 

38 DRAW @,18@,1:DRAW 228,90, 1 

4@ CURMOV -218,-18,3:DRAW -19,19;1 

5@ FOR B=1 TO 6 

6@ READ H: GOSUB 188 

7@ NEXT B 

88 GOSUB 48@:END 

98 REM DRAW BAR FOR CHART 

1080 X=(BxX5S+2)x6-5: CURSET X,198,3 

11@ DRAW @,-H,1:DRAW 18,-18,1:DRAW 12,0 
»>1:DRAW -10,18,1 

12@ CURSET X+23,180-H,3:DRAW @,Ht+1@,1 
140 CURSET X;,190-H;3 

15@ FILL H,2,B+16 

168 CURSETX+13,19@-H,3:FILL H,1;,16 
2808 RETURN 

308 DATA 188, 75,55,124,158,155 

48@ REM PRINT ON TEXT WITH CHAR 

410 A$="SALES OF ORIC COMPANION" 

420 FOR I= 1 TO LENCAS$) 

43@ CURSET Ix6+40, 18,3 

44@ CHAR ASCCMID$CA$,1)I,9;1 

450 NEXT 

468 PATTERN 51:CURSET 4@,20,3:DRAW 158, 
8,1 

47@ RETURN 


Related keywords: CHAR, CIRCLE, CURMOV, CURSET, DRAW, FILL, LORES, 
TEXT, PAPER, INK 


IF... THEN... (ELSE) 


BASIC Token: 153, 201, 200 
Format: IF c THEN statements ELSE statement 


The IF. .. THEN. . . (ELSE) format is what is known as a decision structure. It 
is used to test conditions and control the Oric’s subsequent actions. The 
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ELSE is enclosed in brackets above (although not when it is actually used ina 
program), because it is an optional element in this format. The ‘“‘state- 
ments” can be any BASIC instruction sequence provided it will fit into the 
Oric’s maximum line length. IF the condition c is TRUE, the statements 
following THEN are executed. Control then passes to the next line, unless 
ELSE has been used, in which case the statements following ELSE are 
executed. 

This decision structure is one of the most powerful elements of BASIC and 
its use is most satisfactorily clarified by example. 


1 REMXXXIF/THENZELSE 

5 CLS 

1@ INPUT"ENTER YOUR NAME" 5N$ 

2@ CLS 

3@ INPUT"ARE YOU MALE OR FEMALECMN“FI"5S 
$ 

4@ CLS 

5@ PRINT"HELLO "; 

6@ IFS$="M"THEN PRINT "MR "jN$ELSE PRIN 


T'MRS " 5N$ 
7@ END 
GOSUB must be used in standard format with an IF...THEN... ELSE 


construct. GOTO may be omitted, and just the line number given, and GOTO 
may replace THEN. 


Related keywords: AND, GOTO, NOT, OR, ON 


BASIC Token: 178 


INK Format: INKi 


This instruction operates in both the high and low resolution modes. It sets 
the foreground colour of the entire screen according to the value of i, whose 
possible values are listed in the colour table below: 


0 BLACK 

1 RED 

2 GREEN 

3 YELLOW 
4 BLUE 

5 MAGENTA 
6 CYAN 

7 WHITE 
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INK changes the colour of everything ‘written’ on the screen and cannot be 
used to print individual characters in different colours (see the graphics 
chapter and the individual entry for CHR$ for an explanation of how this can 
be done). 

1 REMKXX INKXKXxX 

1@ HIRES 

20 A=0:B=2 

3@ FORV=@T025 

4Q B=Bt+1 :A=At+3 

5@ IFB>7THENB=0 

6@ INKB 

7@ CURSET119@,100,3 

8@ CIRCLEA; 1 

98 NEXTU 

188 GOTO28 


Related keywords: LORES, HIRES, PAPER, TEXT, CHR$ 


BASIC Token: 146 
IN PUT Format: INPUT v, v$,... 


INPUT “prompt”, v, v$, . . 


This allows the computer to receive information from the outside world. 
The command stops the execution of a program and the Oric will not 
continue until the user has INPUT a word/letter or number. There are a 
number of ways in which the command can be formatted. For example: 


10 INPUT N$ 


will stop the program after placing a question mark prompt on the screen. 
The user must now key-in the appropriate INPUT and press the RETURN key. 
However, it is unlikely that anyone other than the programmer will 
understand exactly what form of data is required by the program, so 
obviously some sort of explanatory message is required. This can be 
achieved in one of two ways: 


10 PRINT @ 13,10; “WHAT IS YOUR NAME” 
20 INPUT N$ 


or else: 


10 INPUT “WHAT IS YOUR NAME”’;N$ 
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The only advantage of the first construction is that it enables you to position 
the message anywhere on the screen (provided you own an Oric V1.1), 
whereas the second example PRINTs the prompt AT the current cursor 
position. 


Related keywords: GET, KEY$ 


BASIC Token: 215 
INT Format: INT(n) 


The purpose of INT is to convert any number which has a decimal part into a 
whole number. It should be noted that the number which is given by the use 
of INT is always less than the actual value supplied. For example: 


10 Z=INT(47.677) 
20 PRINT Z 


will PRINT out 47. However, you need to be careful when dealing with 
negative values. For example: 


10 X=INT(— 10.56) 
20 PRINT X 


will, of course, PRINT —11. 


Related keywords: None 


BASIC Token: 241 


K EYS Format: v$=KEY$ 


KEY$ is one of the means by which the Oric receives information from the 
outside world. Like GET it seeks a keyboard response, but will allow the 
program to continue whether or not a key is pressed. 

Since KEY$ contains the value of whatever key is being pressed, it is 
valuable in arcade-type games (e.g. allowing the cursor keys to be used to 
control ‘movement’ on the screen). As the example below demonstrates, it 
is also useful when a particular response is required from the user of the 
program: 

1 REMXXXKEY$Xxx 

S CLS :X=2 

1@ PRINT"USE ’2? TO MOVE LEFT;’M’ FOR R 

IGHT & ?’?S’* TO STOP" 
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20 REPEAT 

38 U$S=KEY$ 

4Q [FUS="2" THENX=X-3 :PLOTX+3, 18," " 
5Q@ IFUS="M" THENX=X+3 :PLOTX-3; 10," : 
6@ IFX<2THENX=2 

7@ IFX>35THENX=35 

8@ PLOTX,10,"<x>" 

398 UNTILU$="S" 

18@ PRINT"EXAMPLE TERMINATED" 


Related keywords: GET, INPUT 


BASIC Token: 244 


L E FT$ Format: v$=LEFT$(a$, i) 


Like MID$ and RIGHTS this command allows specific characters to be 
extracted from a string. It takes the following format: 


LEFT$(a$,i) 


in which a$ is any previously defined string variable and i is equal to the 
number of consecutive characters that you want extracted from the lefthand 
side of that string. Thus: 


1@ REM Xxx LEFTS xxx 
20 A$="ORIC LEFTS$" 

38 FOR I=1 TO LENCAS$) 
4@ BS=LEFTSCAS, I) 

38 PRINTB$ 

68 NEXT I 

70 END 


will extract and PRINT all the possible LEFT$s from “ORIC LEFT$”. If it is in 
excess of the number of characters in the string the Oric will simply return 


the entire string. 


Related keywords: RIGHT$, MID$, LEN 
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BASIC Token: 233 
L E N Format: LEN(a$) 


LEN simply returns the number of characters in a particular string. For 
example: 


10 J=LEN (“““NUMBER’’) 
20 PRINT J 


would PRINT out 6, because there are six letters in the string ‘NUMBER’. 


10 H=LEN (“PRINT OUT’) 
20 PRINT H 


would PRINT out 9, because this time the string is made up of eight letters 
and a space. 

This function is useful when, for example, you wish to format a screen 
display which is to contain strings INPUT by the user of the program whose 
length is, of course, unknown. LEN can also be used in a FOR... NEXT 
construction, when a task must be performed for each letter of a string. 
Thus: 


10 FOR A=1 TO LEN(X$) 


is an acceptable construction. The empty or null string, ‘“”’, has a LENgth of 
0. 


Related keywords: MID$, RIGHT$ 


BASIC Token: 150 
LET Format: LET: v=n 


LET v$=a$ 


Throughout this book we have tried to stress that it is often not enough to 
produce programs that RUN, but that they should also be readable to an 
outsider. In Oric BASIC, LET is an optional function, but its use can serve to 
clarify a listing. 

LET is used in the assignment of variables. For example: 


10 LET A=10 


This means that in a given memory location which shall henceforth be 
known as A, the value 1@ will be held. What we have created is a curious 
beast known as a constant variable — a variable whose value remains the 
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same. This said, we can alter the value of variable A with a construction like 
this: 

20 LET A=A+10 
This may seem to be nonsense in mathematical terms, but as far as BASIC is 
concerned we are simply saying that to the memory location A which 
initially held the value of 10 we must now add a further 10. Thus A now 


holds the value of 20 (10+ 10). Oric BASIC, however, does allow us to omit 
LET from a statement: 


30 A=A+10 
but, to labour the point, its inclusion does make for a clear and readable 


listing. 


Related keywords: None 


BASIC Token: 188 


LIST Format: LISTi-i 


This command is important for every stage of a program’s development, 
since it enables the programmer to LIST a line, a series of lines or the entire 
program. Let’s look at the various formats: 


LIST 


On its own, LIST will PRINT out the entire program on to the screen. Since 
any reasonable sized program will be considerably more than a single 
screenful of text, you will want to stop each section of program as it scrolls 
up the screen. To do this you simply use the space bar at the bottom of the 
keyboard. This will stop the scrolling which can be reactivated by pressing 
the space bar again once you have examined the relevant section. 


LIST 40 
This will PRINT line 40 on to the screen. 
LIST 40-80 


This will PRINT lines 40-80 (inclusive) on to the screen. 


Related keywords: EDIT, LLIST 


146  Oric BASIC keywords 


BASIC Token: 142 


L LIST Format: LLISTi-i 


This behaves in exactly the same way as the LIST command, except that 
instead of PRINTing the specified lines on to the screen it lists them on to the 
printer. 


Related keywords: LPRINT, LIST 


BASIC Token: 224 
LN Format: LN(n) 


This is one of the Oric’s valuable mathematical functions. It returns what 
are known as natural logarithms or, more properly, logarithms to the base 
ec: 

LN(n) is the natural logarithm of n. The antilog is EXP(LN(n)). Natural log. 
operations can be used, if appropriate, as with common logs. For example: 


EXP(LN(x)+LN(y)) 


gives the product of x and y. 


Related keywords: EXP, LOG 


BASIC Token: 232 


LOG Format: LOG(n) 


This is a mathematical function which calculates the common logarithm to 
the base 10. The n in the format must be greater than @ otherwise LOG(n) 
would be an imaginary number. See any calculus text for details of such 
numbers, if you’re interested, but for now just note that the Oric can’t 
handle them. 


1 REMXXXLOGXxXx 

3 CLS 

1@ INPUT"ENTER A NUMBER €1-10)3"5N 
28 FORA=1TO19 

38 C=RNDC1I)*9 

4@ PRINT" THE LOG OF " 5NxXxA 

5@ PRINT" IS " ;LOGCNxXAJ 

6@ NEXT 


Related keywords: EXP, LN 
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BASIC Token: 137 
LO R ES Format: LORES 0 


LORES 1 


This command allows access to two of the Oric’s four screens. It has two 
formats (LORES 0 and LORES 1), one for each screen, although both of the 
low-resolution screens have exactly the same format: twenty-seven lines of 
forty characters. 

LORES @ is similar to the TEXT screen except that it generates a black 
screen upon which white characters can be printed. The normal use of a 
PRINT statement will cause the entire screen area to scroll into the TEXT 
screen. This means that characters must be positioned by PRINT @ if you 
have a V1.1 Oric, or else you will have to PLOT your characters to the screen 
ona V1.0. 

LORES 1 operates exactly the same way except that it prints the alternate 
character set to the screen. The example program demonstrates the use of 
both screens. 


1 REMXXXLORESXXx 

1@ LORES@:C=@ 

2@ PLOT2,24, "THE CHARACTER SET IN LORES 
g" 

30 FORA=32T0126 

4Q@ X=RND(C1)*36+1 > Y=RNDC1)X22+1 

5@ C$=CHRS$(AJ 

6@ PLOTX,Y,C$ 

78 WAITS@ 

88 NEXT 

9@ IFC=1THENWAITS@@:CLS :END 

100 PRINT: PRINT"AND NOW THE SET IN LOR 
ES 1 ":WAIT3@O@ 

11@ GOSUB132 

120 GOTO30 

13@ CLS:LORES1 :C=1 

14@ RETURN 


Related keywords: TEXT, HIRES 
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BASIC Token: 143 
L Pp RI NT Format: LPRINT a$ 


LPRINT i 


This command works exactly the same as a PRINT statement except that it is 
used to send the print items to a printer. However, it is not possible to use 
an LPRINT @ statement. Used with the control codes listed in Appendix 1, 
LPRINT can be used to regulate the output to a variety of printers. It is 
possible to alter the line length of the printer output by using POKE 49,i, 
where 1 is the required line length (although if you are using a V1.0 Oric you 
must add eleven to the required line length). 

If you use the dedicated MCP-490 printer with a V1.0, you will find that 
occasionally random characters will be generated. This can be circum- 
vented by disabling the Oric’s keyboard interrupts, which can be achieved 
by CALLing #E6CA before you start LPRINTing (or LLISTing). To counteract 
this command use CALL #E804 within the program. 


Related keywords: CHR$, LLIST, PRINT 


BASIC Token: 246 
M | D$ Format: MID$(a$, ij, iz) 


Like RIGHT$ and LEFTS, this function is used to extract specified characters 
from a predefined string. The name of the command is actually somewhat 
misleading, since it enables programmers to extract characters from any 
part of the string (not just the middle). The extracted characters constitute 
what is known as a substring, which starts at character i, and is i, characters | 
in length. Ifi; characters starting at i, is greater than the length of the string, 
the program will simply print out the entire string from the point specified 
by i;. Ifno such point as i; exists within a string, then nothing is returned. 
Without i, the command will simply return the rest of the string from the 
point specified by i). 

In the example program below, MID$ is used to get rid of the leading 
spaces in a numerical print out. 
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1Q@ REM xxx MIDS xxx 

28 A$=" ORIC 2 

3@ IF ASCCA$J=32 THEN AS=MIDS$CA$,2): GO 
TO 30 

4Q@ IF ASCCRIGHT$CA$,13)J=32 THEN AS=MIDS 
(A$,1,LENCA$IJ-1): GOTO 4@ 

5@ PRINT" XK" ;AS 5°" 


Related keywords: LEFT$, RIGHTS 


BASIC Token: 168 
M USIC Format: MUSICc, 0, n, v 
c=channel 0-3 
o=octave 0-6 
n=note 1-12 
v=volume 0-15 


This is one of the Oric’s three major sound commands, and as its name 
implies it is used to generate musical output. The utilisation of the Oric’s 
sound commands is relatively complex, and thus it is important that if you 
intend to take full advantage of these sophisticated facilities you should 
refer to the sound chapter. However it is possible here to outline the 
parameters of the command. 

There are four variables involved in a MUSIC statement and the command 
itself is usually coupled with PLAY (which creates the “‘shape”’ of the sound 
and determines the number of sound channels in operation at any one 
time). As laid out in the command format above, c sets the tone channel to 
be used, whilst o determines which of the seven available octaves is to be 
used (0-6). The third variable, n, determines which of the twelve notes in a 
given octave will be generated (1-12). The last parameter, v, determines the 
volume of the sound produced (@-15). 

Unless you have a good reason for wanting the last note of your musical 
masterpiece to drone on for eternity, you must close down all the tone 
channels by using the statement PLAY 0,0,0,0 to silence the computer. 


1 REMKXXMUS I CXxx 
1@ FORO=@TO6 

2@ FORN=1TO12 

3@ MUSIC1,0,N;19 
4Q PLAY3,9,;7;9 
98 WAIT30 
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68 NEXTN 

7@ NEXTO 

80 PLAY@,8,9,90 

9@ EXPLODE 

Related keywords: PLAY, SOUND 


BASIC Token: 193 


N EW Format: NEW 


This command deletes the current BASIC program and variables from the 
Oric’s memory. It is advisable to enter NEW before starting any new 
program to ensure that it is unaffected by any superfluous instructions from 
a previous program. 


Related keywords: RUN 


BASIC Token: 202 
NOT Format: NOTi 


NOT c 


The keyword NOT is a logical condition operator which works in much the 
same way as the common English usage of the word. It reverses the value of 
TRUE (—1) or FALSE (@) which the Oric assigns to a logical expression. For 
example it can be used as part of an IF. . . THEN statement: 


IF NOT (condition) THEN (action) 


It is easy to see how this sort of construction could play a valuable role in a 
games program. For example: 


IF NOT DEAD THEN GOTO (next stage of game) 


where DEAD is a flag which determines whether or NOT the program should 
enter the endgame sequence. 

The condition can also take the format NOT i or NOT c in which i is an 
integer and c is a logical expression. Thus it can take its place in the 
following type of constructions: 


IF NOT X THEN X=6 


If X was @ (FALSE) the condition NOT X is TRUE, and x will be set to 6. NOT 7 
would give the answer 248 since, for the purposes of operation on integers 
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we would consider the individual bits. If a bit was set in the original integer 
then it will NOT be set in the answer and vice versa. Thus 7 (00000111) will 
become 248 (11111000). 


1 REMXKXXNOT Xxx 

5S CLS:A=] 

1@ INPUT"THINK OF AN INTEGER" 5N 
2@ REPEAT 

25 A=AtI1 

38 IFNOTCA=NJTHENPRINTA 

4Q WAIT2@:CLS 

5Q@ UNTILA=N 

6Q@ PRINTA:EXPLODE 


Related keywords: AND, IF, OR 


BASIC Token: 180 
ON Format: ONiGOTOIn,,In,... 
ON i GOSUB In,, In, . 


This command must be paired with either GOTO or GOSUB and facilitates 
multiple branching in a program. It is commonly used as a control structure 
in menu-driven programs in which the user is given a number of options 
whose consequences are handled by different parts of the program. For 
example, consider the program lines 


1 REMXXXONXXxX 

2. ELS 

1@ INPUT"PLEASE-ENTER 1,2 OR 3" 3N 
28 ON N GOTO 188, 288, 380 


9@ REM 
1Q@Q PRINT"LINE 180 FROM N=1":GOTO19 
15@ REM 
208 PRINT"LINE 20@ FROM N=2" :GOTO1@ 
2980 REM 


308 PRINT"LINE 30@ FROM N=3" :GOTO1@ 


If the user enters 3 in line 10, the program will GOTO the third line number 
(300) specified in line 20. If N=2 then the program will jump to the second 
line number, and so on. 
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If N is greater than the number of line numbers specified then the 
program will simply continue on to the statement which follows the one 
containing the ON. . .GOTO statement. However, negative INPUT will throw 
up an error report. Either way, INPUT checks are clearly required. Non- 
integer values are automatically rounded. 

ON ... GOSUB works in exactly the same way, except that since the 
program is jumping to a subroutine a RETURN statement is required, at 
which the program will jump back to the line following the ON . . . GOSUB 
statement. 


Related keywords: GOSUB, GOTO, RETURN 


BASIC Token: 210 
OR Format: iORi 


cORc 


This is another of the Oric’s logical condition operators. In order to 
understand how this condition operates, it is worth examining the con- 
sequences of this keyword in a tabular form: 


TRUE OR TRUE=TRUE 
TRUE OR FALSE=TRUE 
FALSE OR TRUE=TRUE 
FALSE OR FALSE=FALSE 


It should be clear that the oR operator has a similar effect to the ‘either. . . 
or. . .’ construction in English whereby an answer of TRUE (—1) is returned 
if either of the two conditions in question is correct. 

OR can also be used as a “‘bit-wise”’ operator on two integers in a similar 
manner to AND, with each pair of corresponding bits being considered 
jointly. Thus 13 (00001101) oR 24 (00010100) is 29 (00011101). 

Test this with the following command: 


PRINT 13 OR 24 


which should return 29. 
When used as part of an IF... THEN construction, OR has the following 
type of format: 


IF (A=0) OR (B=1) THEN 300 


If either condition is TRUE, the program will jump to line 300. 


Oric BASIC keywords =153 


1 REMXKXXORXXxX 

5 CLS 

10 INPUT"ENTER AGE OF HUSBAND" ;HA 

20 INPUT“ENTER AGE OF WIFE" ;WA 

3@ INPUT"ENTER ANNUAL INCOME OF HUSBAND 
"STH 

4@ INPUT"ENTER ANNUAL INCOME OF WIFE"31 
W 

5@ IFCHA>21 AND IH>s5808) OR CWA>21 AND 
TW> =5800) THEN1 20 

6@ PRINT"NOT ELIGIBLE FOR LOAN" 

70 END 

18@ PRINT"LOAN AVAILABLE" 


Related keywords: AND, NOT, FALSE, TRUE 


BASIC Token: 177 


PA P E R Format: PAPERi 


This sets the background colour of the Oric’s entire screen. It operates in 
both high and low resolution modes, but cannot be used to set the 
background of individual sections of screen. PAPER must be coupled with i, 
giving one of the colour codes: 


0 BLACK 

1 RED 

2 GREEN 

3 YELLOW 
4 BLUE 

5 MAGENTA 
6 CYAN 

7 WHITE 


To set the background colour of individual sections of screen see the 
individual entries for CHR$ and FILL and the graphics chapter. 

1 REMXXXPAPERXXxX 

1@ HIRES: INK@ 

20 A=0 :B=8 

38 FORU=8TO25 

4@ A=A+1:B=Bt3 
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38 IFA>?THENA=0 

68 PAPERA:WAIT2@ 
7@ CURSET119,1900,3 
8@ CIRCLEB; 1 

3@ NEXTU 

188 GOTO28 


Related keywords: INK 


BASIC Token: 174 


PATT E R N Format: PATTERN i 


This is another of the Oric’s HIRES graphics commands. Since it is used in 
conjunction with either DRAW or CIRCLE it can only be used in the high 
resolution mode. 

Normally both DRAW and CIRCLE create a solid line display. However, 
PATTERN can be introduced to break the lines created by these commands 
into dots or dashes, the pattern of which is determined by the integer i 
following PATTERN, in the range 0-255. The example program below 
demonstrates the full range of PATTERN’s influence: 


1Q REMKXXPAT TERNXXxX 
2@ HIRES: INK@:PAPER1 
3@ FOR A=1 TO 65 

4@ PATTERN 17@-A 

5@ DRAW230, 9; 1 

6@ CURMOV-232,3,;9 
7@ NEXT 


Related keywords: HIRES, DRAW, CIRCLE 


BASIC Token: 230 


P E E K Format: PEEK (addr.) 


PEEK examines the memory location specified by addr. and returns the 
value contained in that location. The value returned will be between @ and 
255. For example, PEEK (49) will return the current maximum line length on 
your Oric (80). The value of this function becomes clear when it is realised 
that by POKEing this location (see individual entry for POKE), with a value 
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other than 80 will alter the line length. For a fuller explanation of this 
function see Chapter 5. 


1 REMXXXPEEKXxXxX 

1@ REPEAT 

28 PRINTCHR$(20) 

38 GOSUB1982 

4@ UNTILFALSE 

38 END 

108 IF PEEKC480339)=83THENPRINT"CAPS ON" 
ELSEPRINT"CAPS OFF" 

11@ RETURN 


Related keywords: CALL, DEEK, DOKE, POKE, USR 


BASIC Token: 238 
Pl Format: PI 


The trigonometric constant. Returns the value of 3.14159265. In the short 
example program below P1 is used in the calculation of the area of a circle. 


1 REMKXXP I Xxx 

3S CLS 

1@ FORV=1TO5 

28 R=RND(1)X32 

38 A=PIXCR*2) 

4@ PRINT" IF CIRCLE RADIUS="R; 
38 PRINT" THEN ITS AREA ISA 
6@ PRINT :PRINT 

7@ NEXT 


BASIC Token: 166 


Pl N G Format: PING 


This is another of the Oric’s pre-defined sounds which can be used as a 
prompt or as a feature in games programs. Multiple PINGs can only be used 
effectively when coupled with the WAIT command. It can be sampled by 
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using CTRL-G (or by attempting to key more than eighty characters into a 
single statement). 


1 REMXKXXP INGXxXx 

1@@ PAPER]: INK@:CLS:PRINT 

11@ PRINTCHR$C14@3"CHOOSE ONE OF THE FO 
LLOWING=:" 

12Q@ PRINT:PRINT :PRINT 

138 PRINTCHR$C147)"1 DIARY" =PING 

14@ WAIT3@ 

15@ PRINTCHR$(C148)"2 HOROSCOPE" :PING 

{55 WAITS@ 

16@ PRINTCHR$C146)"3 CALENDAR" :PING 


Related keywords: EXPLODE, SHOOT, ZAP 


BASIC Token: 169 
PLAY Format: PLAY t,s,e,d 
t=tone channel 0-7 
s=sound channel 0-7 
e=envelope 1-7 
d=duration 0-32767 


This is one of the Oric’s rather complex sound commands which, once you 
get used to them, offer a music/sound potential well in advance of the 
machine’s competitors. However, the commands are a little difficult to 
grasp, particularly if you’re not musically minded, so it is well worth 
spending some time working your way through Chapter 7. For the present 
we will restrict ourselves to clarifying the format of the command. 

Your Oric is endowed with three sound/tone channels and PLay is the 
command which determines the combination of these channels. In terms of 
the command format at the top of the page, t (tone) and s (sound) determine 
which channels are activated (@-7). The effects of the combination of 
channels is really only comprehensible after a little experimentation, but 
the following chart will be of some use for future reference. The column on 
the left represents the value of t or s, whilst the righthand column tells you 
which combination of channels are activated by this value. 
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channel combination 
no channels 
1 
2 
l and 2 
3 
1 and 3 
2 and 3 
1, 2 and 3 


n 


NAUBWNY SL 


PLAY’s third parameter, e, is probably the most difficult to understand, 
since it is the integer which determines the ‘“‘shape”’ of the sound which the 
Oric produces. Once again the sound chapter should be consulted for a full 
explanation of this feature. However, variable e (0-7) when set at 1 or 2 
produces what are known as sound envelopes of a fixed length, whilst all 
other settings generate continuous sounds of various types. The example 
program below will hopefully clarify the effect of the different PLAY set- 
tings. Finally d (@-32767) sets the duration of the sound envelope. 

When using either MUSIC or SOUND at some point in the course of your 
program you will want to turn off the sound channels, which can be 
achieved by the statement PLAY 0,0,0,0. 


1 REMXKXXPLAY Xxx 

3S CLS 

1@ CLS:PRINT :PRINT 

20 INPUT"ENTER NUMBER (@-7) FOR SOUND S 
HAPE" 3E 

30 IFE<@ OR E>7THEN28 

4@ INPUT"ENTER A NUMBER (@-65535) FOR D 
URATION" 3D 

3@ PRINT"THIS IS SOUND ENVELOPE "3E;" W 
ITH A "3D3" DURATION" 

6@ SOUND], 1500,0 

7@ PLAY1,;@,E;D 

88 PRINT"PRESS ANY KEY TO STOP PLAY" 

38 GETA$:GOTOS 


Related keywords: MUSIC, SOUND 
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BASIC Token: 135 
PLOT Format: PLOT x,y,n 


PLOT x, y, a$ 


This command is used to position characters on the low resolution screens. 
It is particularly valuable to owners of V1.0 Orics, since without the PRINT 
«@ command it is only possible to PLOT characters to the LORES screens. 
(Using the PRINT statement will cause LORES 0 and | screens to scroll into the 
normal TEXT screen. ) 

In the first of the command formats given above, n must be a numeric 
expression that will return the appropriate ASCII character represented by 
that expression. Since this includes not just the standard printed character 
set but also the attribute characters (see Chapter 7 and Appendix 1), PLOT 
can be used in the production of interesting screen displays. For example: 


PLOT 11, 11, 12: PLOT 13, 11, “ORIC” 


will produce a flashing ‘“ORIC”’ on your screen. Experimentation should 
reveal the potential of the command used in this way, and the graphics 
chapter offers a full explanation of how the attribute characters can most 
effectively be exploited. 

If PLOT is used in the second format, it will position the string expression 
on the screen. For both numeric and string expressions the co-ordinates are 
in the ranges 0-39 (x) and 0-26 (y). On the V1.0 x=@ PLOTs one position to 
the right of the lefthand edge of the screen, whilst x=@ on the V1.1 PLOTs at 
the lefthand edge of the screen. The command will operate in the TEXT, 
LORES @ and LORES 1 modes, but will not function on the HIRES screen. 


1 REMXXXPLOT Xxx 

5 CLS :LORES@ 

10 PLOT2,2;, "PLOTTING IN LORES @ MODE" 
20 FORA=1T023 

3@ X=RND(1)*33+4:Y=RNDC13*22+3 

4Q@ PLOTX,Y,;A:PLOTX+2;, 7, "ORIC" 

5@ WAITS@:NEXT 


Related keywords: CHAR, PRINT 
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BASIC Token: 243 


POINT Format: POINT (x,y) 


This command is used to test whether the point on the HIRES screen 
specified by the co-ordinates which follow it (x in the range 0 to 239, y 
between 0 and 199) holds a background or foreground colour. If the point 
contains a background colour, POINT returns @, and if it contains a 
foreground colour POINT returns — 1. 

POINT is often used in games programs to detect collisions, and the 
example program below offers a simple demonstration of the command in 
this role. 


1 REMXXXPO INTXxXx 

S HIRES :PAPER4 : INK@ 
10 FORB=5TO1275 

2@ CURSET20@,B,2:CHAR124,9, 2 
38 NEXTB 

48 A=5 

9@ REPEAT 

68 A=A+8 

70 CURSETA; 90,0 

8@ CHARI27,0,1:WAITS 
98 CHARI27,0,@ 

108 C=POINTCAt+11,9@) 
12@ UNTILC=-1] 

13@ EXPLODE 


Related keywords: HIRES 


BASIC Token: 185 


POKE Format: POKE addr, i 


This instruction allows programmers to place the value of i into the 
memory location represented by the address addr. The address must fall 
into the range 0-65535, and since any given location is made up of eight 
binary digits the value of i falls into the range 0-255. On the V1.9 it is not 
possible for i to be given in Hex, although the V1.1 will now permit such an 
instruction. 

POKE enables you to enter machine-code routines and tinker around with 
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your Oric’s system variables, and, although the effects of an aimless POKE 
may initially appear somewhat traumatic, as far as it is possible to tell no 
permanent harm can be done to your machine. 

As an example of the power of this command, try the following POKE to 
increase the repeat speed of your keyboard: 


1@ REM Xxkxk POKE xxx 
20 FOR A=1 TO 8 

38 POKE 46599+A;A 
40 WAIT 180 

3@ NEXT 

68 WAIT 1080 

7@ CALL DEEKCHFFFA) 


Or this one to display an ‘‘A”’ in the (normally inaccessible) top left-hand 
corner of the screen: 


POKE 48000,65 


Related keywords: DEEK, DOKE, PEEK 


BASIC Token: 134 


P O P Format: POP 


This instruction operates in exactly the same way for GOSUB. . . RETURN as 
PULL does for a REPEAT... UNTIL loop. In many respects PoP should be 
considered as a last option command, since it forces a program to jump out 
of a nested subroutine, which should never be necessary in a properly 
planned and structured program. 

Normally when a subroutine is called the RETURN address is stored in the 
area of memory known as the stack. With each new subroutine a further 
address is added to the stack and as each subroutine encounters a RETURN it 
retrieves its return address on a ‘last in first out’ basis. POP is the only 
legitimate means of circumventing this operation. 

Imagine a program which calls subroutine 1 which in turn calls sub- 
routine 2. When a specific set of conditions have been met in subroutine 2 
under certain circumstances it may be necessary to jump back to the main 
body of the program rather than return to subroutine 1. pop enables you to 
do this, since it bypasses the first return address on the Oric’s stack and in 
this case retrieves the return address of subroutine 1, which will return 
control to the main body of the program. The example program below 
demonstrates such a procedure in action. 
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1@ REM XXX POP Xxx 

2@ FOR I=-5S TO 5:PRINT I; 

38 GOSUB 182 

4@ PRINT :NEXT 

3@ END 

188 GOSUB 200 

118 PRINT X 

12@ RETURN 

200 IF I>@ THEN X=LOGCI)J ELSE POP 
21@ RETURN 


BASIC Token: 219 


POS Format: POS(0) 


This instruction returns the current horizontal cursor position when used 
to detect such a position generated by a straightforward PRINT statement. It 
cannot be used to return positions generated by PLOT or PRINT@. POS 
requires a dummy parameter (0), or it will produce a syntax error message. 


1 REMXKXXPOSKXxX 

18 DIM AC4, 2) 

15 REPEAT 

20 FOR K=1 TO 4 

38 FOR J= 170 2 

4@ ACK; JJ=KXRNDC1I)+J 

3@ NEXT 

68 NEXT:CLS 

7@ FOR K=1 TO 3:PRINT :NEXT 
8@ PRINT AC1,1);3 

9@ REPEAT:PRINT" *37UNTIL POSC@J=15 
1Q@Q8 PRINTAC1,; 2) 


Related keywords: PRINT 


162 Oric BASIC keywords 


BASIC Token: 186 
P RI NT Format: PRINT plist 
PRINT © x,y; plist 
plist=list of print items 


PRINT instructions affect the current cursor position on screen, which 
defines the point from which any printing will start. PRINT (which may be 
abbreviated to ?) is followed by a list of items to be displayed on screen. 
PRINT@ x,y; defines a print co-ordinate position of the TEXT and LORES 
screens. This second command format is not available on the V1.0, and the 
PLOT command must be used for placement of characters on screen (see the 
PLOT entry in this section). 

PRINT may be used on its own, with no PRINT items following, and a blank 
line is displayed on screen. The PRINT list can consist of numbers, numeric 
variables, expressions, strings and string expressions which may follow 
directly after each other, or be separated by commas and semi-colons. The 
PRINT functions TAB and spc can also be included (see their individual 
entries in this section). 

Semi-colons after PRINT items leave the PRINT position set directly after 
the last character printed, so that the next item to be printed will follow on. 
If the semi-colon is at the end of a PRINT list, any subsequent PRINT state- 
ment will continue PRINTing on the same line. When there is no ambiguity 
in the sequence of PRINT items the semi-colon may be omitted, and each 
item will be placed on screen directly after the preceding (but remember 
that numbers have leading and trailing spaces). Thus it is possible to have a 
line PRINT AX“TIMES”23, with no semi-colons between the items, as the Oric 
will interpret the items correctly, whilst we cannot say PRINT AX12, with the 
intention of displaying the value stored in variable Ax, then 1, then 2, since 
the Oric will interpret it as an instruction to PRINT the value of a variable 
called Ax12. Since the effect is the same, it is advisable to use a semi-colon 
unless you are certain the Oric will not misinterpret the sequence you place 
in the line. 

A comma between PRINT items causes the cursor position to be moved to 
the start of the next PRINT field. The V1.1 Oric screen is divided up into 
fields of seven PRINT positions, and a comma moves the cursor at least one 
space to the right, and then to the beginning of the next field, thus ensuring 
at least one space between each item formatted this way. Multiple commas 
may be used to shift over more than one field to the right. V1.0 Orics have a 
bug in the screen field routines. Use of spc will prevent problems in 
formatting using a comma in PRINT lists. 

Control characters and attributes may be placed in PRINT statements 
using CHR§(i), where i is an ASCII character code. The same instruction may 
be used to place other characters on the TEXT and LORES screen, but control 
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codes and attributes are non-printing, that is they do not PRINT anything on 
the screen, but occupy a character position in the screen memory map, so 
that a space appears on screen. 

Many examples of the use of PRINT statements appear throughout this 
handbook. The program below demonstrates a variety of PRINT formats. 


1@ REM XxXk PRINT Xxx 

20 B=2 

38 A$="TO BE OR NOT TO BE" 
4Q@ PRINT 15,2;3 

5@ PRINT A$ 

6@ PRINT 2xkB OR NOT 2XB 

7@ PRINT 

88 PRINT 13233 


PRINT@ instructions have the form PRINT@ x,y; where x is the column 
number (0 to 39) across the screen left to right, and y is the row number (0 to 
27) of PRINT lines down the screen. The two values are separated by a 
comma, and must be followed by a semi-colon before the list of items to be 
PRINTed, which follows the same formats as for PRINT. Variables or 
calculated expressions may be used for x and y, and they will be rounded 
down if they are non-integer. An ILLEGAL QUANTITY error will occur if the 
values are outside the correct range. 

The example program draws a circle, using SIN and COS to calculate the x 
and y positions for PRINT@. 


1Q@ REM Xxx PRINT @ Xxx 

28 R=13:XC=20:YC=13:CLS 

3@ FOR A=@ TO 2xPI STEP P1750 
4Q@ X=XC+COSCAJXR 

5@ Y=YC+SINCAJXR 

6@ PRINT @xX;,Y;"0" 

20 NEXT 


Related keywords: LPRINT, SPC, TAB 


BASIC Token: 136 


P U LE L Format: PULL 


This instruction operates in exactly the same way for a REPEAT... UNTIL 
loop as PoP does for GOSUB .. . RETURN. If the truth be told, both por and 
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PULL must be regarded as “‘patching”’ commands. If your program has been 
properly planned and structured, it should never be necessary to jump out 
of either a loop or a subroutine. However, no one is perfect, and PULL does 
give you the chance to extricate yourself from a tricky situation. 

Let’s assume you have programmed a REPEAT loop to print out the 
numbers between —5 and 10, along with a countdown of each number to 
zero (see example program below). We use PULL to exit the inner loop in the 
case of negative numbers since decrementing will obviously never make 
them zero. (Of course this is a somewhat artificial example, since it would 
obviously be simpler to use the IF statement to avoid entering the REPEAT 
loop.) 


1@ REM xxx PULL Xxx 


28 A=9 

3@ REPEAT 

40 : B=A 

598 + REPEAT 

68 : PRINT B; 

7Q : B=B-1 

88 : IF B<@ THEN PULL:GOTO 180 
398 : UNTIL B= 

10@ : A=A-1 

11@ = PRINT 


12@ UNTIL A=-5 
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PFNWAUON OW 
PNWOA UON © 
PNWAUODN 
PNW A UO 
PNW A UI 
PNW A 

me N WO 


Related keywords: POP, REPEAT, UNTIL 


BASIC Token: 149 
R EAD Format: READ v,y, . 


READ v$,v$, ... 


This is always used with DATA statements, and it is important to ensure that 
READ is followed by an appropriate variable (v in the case of numeric data 
and v$ when READing string DATA). The command READs the DATA state- 
ments sequentially, and must never be programmed to READ more DATA 
than is actually contained within the statements (this will result in an OUT OF 
DATA error message). Thus the positioning of a READ statement is critical, 
whilst DATA statements can be placed at any point in a program. 

When DATA statements have been exhausted, the computer’s internal 
‘‘pointer’’ can be returned to the beginning of the DATA line with the use of 
the RESTORE command. 


1 REMKXXREADXXxX 

5S CLS 

18 FORA=1T05 

20 READY, VU$ 

3@ PLOTV;1@,U$ 

48 NEXT 

5@ DATAS,MAN; 9,WOMAN, 15,CHILD; 21,D0G;25 
» HOUSE 


Related keywords: DATA, READ, RESTORE 
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BASIC Token: 131 
RECALL Format: RECALL v,, “filename” 


RECALL v$,“‘filename” 


This instruction is the partner to STORE, which stores an array in a cassette 
tape file. RECALL will load back from tape the contents of an array 
previously saved on tape using STORE, and the procedure is the same as 
when using CLOAD. The array to store the RECALLed array must have been 
dimensioned prior to using RECALL, or an OUT OF DATA error occurs. The 
array variable must be the same type as that of the original array (integer, 
string or real) and identical size or greater. 

Slow speed data transmission from tape can be specified by adding a 
comma followed by an S ( ,S) to the format above. This must also have been 
used by the STORE instruction. See STORE for an example program. 


Related keywords: CLOAD, CSAVE, DIM, STORE 


BASIC Token: 160 


R E L EAS E Format: RELEASE 


When the GRAB command has been used to liberate that area of memory 
allocated for the HIRES screen for the development of a lengthy BASIC pro- 
gram, this screen cannot be used again until the Oric’s memory organisa- 
tion is returned to normal by the use of RELEASE. This instruction 
reallocates the bytes #9800 to #B400 (on the 48K Oric) or bytes #1800 to 
#3400 (on the 16K machine). 


Related keywords: HIRES, RELEASE, GRAB 


BASIC Token: 157 


REM Format: REM 


REM statements are essential tools for all serious programmers whatever 
their experience, although their inclusion or otherwise has no effect on the 
way a program actually works. REM is short for REMark or REMinder and a 
REM statement enables the programmer to add a running commentary to a 
program which will explain the function of particular sections of code. The 
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Oric ignores everything following a REM statement for the duration of the 
line in which it is included. 

It is arguable that very short programs will always be self-explanatory, 
and thus not require REM statements. However, we recommend that you get 
into the habit of using REMs from the very beginning, even if you are just 
keying in a few lines of code. There is always the tendency to consider any 
program in progress as self-explanatory while you are actually working on 
it, but when you come to try to sort it out later you will save yourself hours if 
you have taken the trouble to include even a schematic commentary of 
REMS. The instruction can be replaced by an apostrophe if you get tired of 
keying in REM each time you need a reminder. 


18 REM XXX REM Xxx 
2@ % THIS WORKS AS A REM AS WELL 
3@ REM USE CHR$(96) TO GET * IN LINES 


Related keywords: None 


BASIC Token: 139 


R E P EAT Format: REPEAT 


When coupled with UNTIL this command creates a loop which forces the 
Oric to repeat a series of instructions until a specified condition has been 
met. Unlike FOR... NEXT loops there is no counter to be incremented, and 
if one is required it must be programmed into the loop (as in the example 
below). 

If you commit the cardinal sin of jumping out of a REPEAT. . . UNTIL loop 
with a GOTO statement (a practice much frowned upon by all but the most 
free-thinking programmers), it is imperative that you return to the loop or 
eventually suffer the consequences of a corrupted stack. The only way in 
which a REPEAT ... UNTIL loop may be exited before completion is by 
utilising the PULL command (see individual entry in this section). 


1 REMKXXREPEAT/UNT ILXXXx 

5 HIRES: INK4:PAPER@ 

18 A= 

28 REPEAT 

4@ CURSETSS+A,119-A,3 

5@ DRAW2+A;@8,1:DRAWG,AtA; I 
55 A=At] 

6@ UNTILA>62 

Related keywords: FOR, NEXT, PULL, UNTIL 
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BASIC Token: 154 


RESTORE Format: RESTORE 


There are occasions when DATA must be READ more than once in the course 
of a single program. However, each time an individual item of DATA is READ 
by the Oric the computer’s internal ‘pointer’ is moved along the statement 
until the DATA is exhausted. In order that the pointer is returned to the 
beginning of the statement for the information to be READ again, RESTORE 
must be used if an ‘OUT OF DATA’ error report is to be avoided. Oric BASIC 
does not permit restoration to a specific line number. 


1 REMXXxXRESTOREXXxX 

S HIRES :PAPERI] : INK@ 

1@ C=] 

20 FORA=1TO05 

25 IFC=@THENWAIT2@ :SHOOT 
38 READV 

4@ CURSETV,; 48,3 

28 FORB=1TO18STEP3 

6@ CIRCLEB;C 

7@ NEXTB 

88 NEXTA 

3@ JFC=@THENEND 

18@ RESTORE 

118 C= 

12@ GOTO208 

130 DATA28; 73,118, 163; 208 


Related keywords: DATA, READ 


BASIC Token: 156 


R ET U R N Format: RETURN 


This instruction must be used as the final statement of any subroutine. It 
tells the Oric that the computer has reached the end of a subroutine and 
must RETURN to the line following the statement containing the original 
GOSUB instructions. 

The destination of RETURN can only be altered with the use of the PoP 
command. 
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1 REMXXXRE TURNXXxX 

10 CLS 

2@ PRINT"KEY IN RADIUS OF CIRCLE" 

3@ INPUTR 

4Q@ C=2XPIXR:2=C 

58 GOSUB288 

6@ CLS 

7@ PRINT"CIRCUMFERENCE IS "32 

BQO A=PIXCR*%2) :2=A 

9@ GOSUB2286 

10@ PRINT"AREA IS "32 

11@ GOTO32@8 

2@@ REMXXSUBROUTINE TO CORRECT TO 
TWO DECIMAL PLACESXx 

210 2=INTC1I@OXCeY+. 085) ) 

220 2=2/180 

23@ RETURN 

24@ REMXXEND OF SUBROUTINEXx 

388 END 

Related keywords: GOSUB, POP 


BASIC Token: 245 


RIGHTS Format: RIGHT$(a$,i) 


Like MID$ and LEFT$ this command extracts specific characters from a 
string. It takes the following format: 


RIGHT$(a$,i) 


in which a$ is any pre-defined string variable and i is equal to the number of 
consecutive characters that you want extracted from the right-hand side of 
that string. Thus: 

1@ REM Xxx RIGHTS Xxx 

20 A$="ORIC RIGHT$" 

38 FOR I=1 TO LENCA$) 

4@ BS=RIGHTS$CAS, I) 

5@ PRINT SPCCLENCA$)-LENCB$) 3) 5BS 

6@ NEXT I 

7@ END 
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will extract the specified number of characters right to left from “ORIC 
RIGHTS”. If i is in excess of the total number of characters in the specified 
string the Oric will simply return the entire string. 


Related keywords: LEFT$, MID$ 


BASIC Token: 223 


RND Format: RND(i) 


Without RND, a lot of computer games would be extremely predictable, 
since it provides the Oric’s built-in random factor. The random number 
generator is only a pseudo-random function, in that it produces a sequence 
of numbers between 0 (which it may equal) and 1 (which it never quite gets 
to). 

RND performs different functions according to the value of the parameter 
within the brackets. The normal usage is RND(1), to give a random number 
between @ and 1. This is not of great value in itself, as perhaps you will see if 
you enter PRINT RND(1) as a direct command a few times. The random 
numbers we wish to generate need to be within a certain range, so that we 
can use RND to simulate the throw of a dice or an x co-ordinate between 3 
and 27, or suchlike. 

To do this, we multiply the result of RND(1) by the appropriate factor, 
which will produce a number between, for example, @ and 5.999999 if we 
multiplied by 6. Adding 1 and then taking the integer value will give us the 
result of a die throw, and the program below shows two equivalent methods 
of rounding down. The first uses INT, and the second merely assigns the 
result of RND(1)*6+1 to the integer variable N%, which automatically rounds 
down. 


1 REM *xkx ROUND AND RND xxx 
1@ LET A=RNDC1)X6+1 

2@ LETN*%=A 

30 LET R=INTCA) 

4@ PRINTR 

S@ PRINTN*% 


The result of RND(@) is more predictable. It returns the value of the last 
random number generated. 

1 REM XXXNOT SO RND Xxx 

1@ FOR R=1 TO 5a 

20 PRINTRND(Q) 

38 NEXT 
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Generating the same sequence of random numbers can sometimes be 
useful. The number sequence is entered at a specific point by a specific 
negative value for the RND parameter. The example program demonstrates 
that setting the seed for the generator by RND(-4) will produce the same 
sequence of numbers. 


t REMXXXRND SEEDXxXx 
10 FOR K=1TO2:PRINT 
20 SEED=RND(-4) 

3@ FOR F=1 TO 6 

4@ PRINTRNDC1) 

5@ NEXTF 

6@ NEXTK 


Related keywords: None 


BASIC Token: 152 
R U N Format: RUN In 


RUN 


Used in isolation as a direct command RUN commences execution of the 
current BASIC program in the Oric’s memory. RUN LN, where In is a line 
number, causes the computer to commence execution of the program from 
the specified line. If the program in question contains no such line the Oric 
will throw up an error message (UNDEFINED STATEMENT ERROR). RUN can 
also be used within the body of a program, as the example below demons- 
trates: 


1 REMXXXRUNXXxX 

1@ A$="PRESS ANY KEY TO STOP" :GOSUB7@ 
20 CLS:PAPER1 

3@ X=RNDC1)X32+1 >Y=RNDC1)*20+1 
4Q@ PLOTX,Y,"ORIC" :WAITS@ 

5Q@ U$S=KEY$ 

6@ IF US THEN END ELSE RUN 

7@ 2=LENCA$) :FORL=1T02 

25 REMXXPRINT TOP LINEXx 

8@ POKE47999+L,ASCC(MIDSCA$,L, 13) 
30 NEXTL 

108 RETURN 


Related keywords:CONT, END, STOP 
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BASIC Token: 242 


SC R N Format: SCRN(x,y) 


The sCRN function returns the ASCII code of the character at the screen 
position defined by the co-ordinates x (column number @ —38) and y (row 
number @ —26). SCRN works only in LORES and TEXT modes. Numeric 
expressions are valid for x and y, but the values must lie in the correct 
range, or an ILLEGAL QUANTITY error occurs. 

The simple examples below illustrate the use of SCRN. The first, using 
PRINT@, will only work on the Oric V1.1. The second will work on both, as 
it uses PLOT. The hash sign is PRINTed at location 5,5 on the screen, by each 
method and line 20 uses SCRN to first PRINT the ASCII code for #, then the 
same SCRN expression is used with CHR$ to print out the actual character 
found in the screen memory location corresponding to column x, row y. 


1 REM Version 1.1 only 

5S CLS 

1@ PRINT@S,55;"#" 

2@ PRINT SCRNC5;5),CHRSCSCRNC5;5)) 


1 REM Versions 1.8 and 1.1 

5 CLS 

10 LET AgS="#" 

15 PLOTS;,;5,A$% 

28 PRINT SCRNC5,5);CHR$CSCRNC5;5)) 


SCRN also works with redefined characters, returning the ASCII code of the 
character which has been re-defined. The program below uses an asterisk as 
a missile fired up the screen, guided left and right with the appropriate 
cursor control keys, until one of the targets (formed by the re-defined ! 
character) printed across the screen is hit (when SCRN(X,Y)=33, the code for 
ree ye 

1Q@ REM xxx SCRN Xxx 

28 CLS: FOR I=1 TO 8 

38 READ A:POKE 46343+1,A 

40 NEXT:POKE #24E,1:POKE#24F, 1 

5@ PRINT @2,9@;"PRESS SPACE TO FIRE;,ARRO 
WS TO MOVE" 

6@ FOR IJ=1 TO 18:PRINT @INTCRNDC1)X37)+ 
Pr ee a Me Sta 
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7Q NEXT :PRINTCHR$(17) ;CHR$(6) 

88 REPEAT 

9@ REPEAT:UNTIL KEY$=" " OR KEY$=CHRS$(1 
3) :IF KEY$=CHR$C13) THEN GOTO 289 

108 X=20:Y=26 

11@ PRINT @X,Y3"X" 3 :SHOOT 

12@ REPEAT :OX=x 

130 IF KEY$=CHR$C8JAND X>2 THEN X=xX-] 
135 WAIT 1 

148 IFKEY$=CHR$CSJAND X<39THEN X=Xt]1 
158 Y=Y-] 

168 PRINT @OX,Y+15" "3 

17@ IF SCRNCX,YJ=33 THEN PRINT @X,Y;" " 
‘EXPLODE :Y=1:GOTO 1390 

18@ PRINT @X,/35"X" 

198 UNTIL Y=1:PRINT @X;Y3" " 

2@@ UNTIL KEY$=CHR$(13) 

21@ POKE#24E, 32 :POKEH#24F,4:PRINTCHR$(17 
} ;CHR$(6) 

228 END 

4@@ DATA 38,33, 45,63, 45,33; 38,8 


Related keywords: ASC, PLOT, PRINT@ 


BASIC Token: 214 


SG N Format: SGN(n) 


SGN is a numeric function which gives the sign or signum of a number, 
returning —1 if the expression within the brackets evaluates as a negative 
number, @ if the number is zero, and 1 if it gives a positive value. 


1@ REM XxXSGN Funct ionxx 

20 INPUT"Enter a number" 5N 

3@ PRINT"Your number was "3 

4@ ON SGN(NJ+2 GOSUB18@, 208, 308 

5@ PRINT"Hit a key to try another numbe 


6@ GET M$ 
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78 GOTO2@ 

18@ PRINT"NEGATIVE" 
118 RETURN 

200 PRINT"2ero" 

21@ RETURN 

30@ PRINT"POSITIVE" 
318 RETURN 


The example program uses SGN to test the number INPUT, and uses this 
value plus 2 to give 1, 2 or 3 for use with the ON. . . GOTO instruction in line 
40, which passes control to the relevant subroutine to print out the sign of 
the number. 


Related keywords: ABS 


BASIC Token: 163 


SHOOT Format: SHOOT 


Shoot is a pre-defined sound command that produces a gunshot noise. Ina 
program, SHOOT merely requires a line like: 


10 SHOOT 


Multiple SHOOT instructions must, as with all pre-defined sound commands 
except ZAP, use WAIT to give sufficient time for the noise to execute and 
avoid the sounds running into each other. Try the following: 


1@ FOR A=1TO6 
2@ SHOOT 
38 NEXT 


This produces a sound like a single SHOOT instruction because the loop 
finishes before the first sound has finished. Add the line: 


1@ FOR A=1TO6 
2@ SHOOT 

25 WAIT25 

3@ NEXT 


and you’ll get a six-gun firing distinct rounds. 


Related keywords: EXPLODE, PING, ZAP 
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BASIC Token: 227 
Sl N Format: SIN(n) 


SIN is a trigonometric function returning the Sine of the angle given by the 
value of n, with n expressed in radians. The function calculates the basic 
trigonometric ratio, which for a right triangle as shown in the diagram gives 
the Sine of the angle at A (SIN(A)) as the length of the opposite side divided by 
the length of the hypotenuse, i.e. BC/AB. 


At 


The numeric expression evaluated by the sIN function must be expressed in 
radians, and not degrees. As the angular measure goes from @ to 360 degrees 
round the circle, the measure in radians goes from @ to 2*PI radians. 
Conversion of degrees to radians and vice versa is simple, using the Oric’s 
built in PI function: 


Adjacent side 


x degrees = x*PI/180 radians 
x radians = x/PI*180 degrees 


The example program prints out the values of the SINE of the angles from @ 
to 360 in steps of ten degrees. Line 3@ converts the degrees to radians, and 
line 40 prints the angle and the result of applying SIN to the value in radians. 


10 REM XXSIN Funct ionxx 

2@ FOR ANGLE=@8 TO 360 STEP 18 
38 LET RADIANS=ANGLEXP1718 
4@ PRINT ANGLE, SINCRADIANS) 
98 NEXT 


If you look at the result closely, you will see that the values vary between @ 
and 1, without quite reaching either, due to the inaccuracies in the multiple 
calculations involved. Change line 4@ to the following, which rounds the 
result to 4 decimal places, to see a clearer picture of the SIN values: 
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1@ REM XXSIN Funct ionxx 

2@ FOR ANGLE=@ TO 3680 STEP 19 

3@ LET RADIANS=ANGLEXP1718@ 

48 PRINT ANGLE; CINTCSINCRADIANS)JX1E4+@. 
5J71E4) 

5@ NEXT 


The next program uses TAB in conjunction with SIN to calculate a position 
for printing an asterisk, producing a SIN curve as the screen scrolls. Since 
the value given by SIN varies between @ and 1, the expression 18*SIN(T) in line 
20 gives a value between — 18 and + 18, which is added to the TAB position to 
vary the placing across the screen. V1.0 owners must replace 20 with 33 in 
the TAB expression because of the bug in the TAB function. 


1@ FOR T=@ TO 8xXPI STEP PI/8 
28 PRINT TABC2@+18XSINCTJJ5"X" 
3@ NEXT 


Related keywords ATN, COS, PI, TAN 


BASIC Token: 167 
SO U N D Format: SOUND c,p,v 
c=channel 0-6 
p=pitch 0-65535 
v=volume 0-15 


SOUND produces, as you might imagine, a defined sound from the Oric’s 
dedicated sound chip. The Channel defines which of the three tone 
channels (which are channels 1, 2 and 3), or noise channels (4, 5 and 6) is 
activated. SOUND may be used without a PLAY command to activate 
channels, and uses tone channel 1 in this case. Pitch controls the tone of the 
sound produced, defining the frequency of the tone produced. The useful 
range is 02000, but the example program below will enable you to judge 
for yourself. Volume has a range from @, which activates the envelope 
parameter of a PLAY command, and produces nil volume without a PLAY 
instruction, through 1 (quiet) to 15 (loud!). 


1@ FOR P=@ TO 32767 
2@ SOUND 1,P,;2 
4@ NEXT 
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The listings below give some idea of the flexibility of the SOUND command. 
Whilst the basic structure of the program is the same in each case, very 
different sounds are produced. The first program has a PLAY command 
which activates noise channel 1, followed by the SOUND instructions, using 
WAIT to set the length. Channel is set to 4 (=noise channel 1), the pitch 
varies according to the value of the loop variable p, and two different 
volumes are used. 


1 REM SOUND EXAMPLE 
2 FOR P=1 TO 3 

1@ PLAY @,1,1,250 
20 SOUND 4,8+P,6 

38 WAITS 

48 SOUND 4,3+tP,3 

98 WAIT 20 

68 PLAY 8,90,90,9 

7@ NEXT P 

88 GOTO 5 


The last parameter of the PLAY command is not activated whilst the volume 
of the SOUND command is other than @. Change line 2@ to read SOUND 4, 
8+P,0 and line 4@ to SOUND 3+P,0 to hear what happens when the envelope 
value is activated. (The same applies to the next two examples.) In the next 
program, only the sound channel value is changed, and it is set to 1, which is 
a tone channel. 


1 REM SOUND EXAMPLE 2 
29 FOR P=1 TO 3 

1@ PLAY @,1,1,250 

2Q@ SOUND 1,8+P;6 

38 WAITS 

4@ SOUND 1;3+P;3 

58 WAIT 20 

6@ PLAY 8,90,0,9 

70 NEXT P 

88 GOTO 5 


The final listing merely deletes line 10, and uses SOUND without a PLAY 
instruction, although PLAY 0,0,0,0 is used to turn off the sound. 
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1 REM SOUND EXAMPLE 3 

3 FOR P=1 TO 3 

38 WAITS 

4@ SOUND 1,3+P;3 

98 WAIT 28 

55 REM DELETE LINE 6@ FOR YET ANOTHER SO 
UND 8 

6@ PLAY 8,0,8,8 

7@ NEXT P 

88 GOTO 5 


Related keywords: MUSIC, PLAY, WAIT 


BASIC Token: 197 


S P C Forniat: SPC(n) 


SPC is a PRINT operator which places n spaces on the screen. If n is not an 
integer, the value is rounded down. Expressions may be used, and SPC is 
useful in formatting, since string expressions may be used inside the 
brackets. SPC is used in PRINT statements to place spaces before or between 
the other PRINT items. 


1@ REMKXSPC Demoxx 
28 FOR F=1T010 

30 PRINT "xX" ;SPCC(FJ3;"X"3F3;"spaces" 
4@ NEXT 


The program above uses a loop value to define the number of places to be 
placed between the asterisks, and helpfully tells you how many it has placed 
to boot. The spc function is useful as an alternative to the use of TAB for 
V1.@ owners, and is flexible in use, as the next example shows. The value 
produced within the FOR ... NEXT loop is converted to the string form, 
using STR$ in line 30, and LEN is used with this string to give a calculated 
number of spaces in line 40. This produces a display with all the numbers 
aligned. 
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1 REM Calculated SPC Value 
1@ FOR F=1 TO 18 

20 LET N*=F*2x39 

38 LET N$=STRS$C(NZ) 

4@ PRINT SPCC2Q@-LENCN$)J) 5N% 
9Q@ NEXT F 


Related keywords: PRINT, LPRINT, TAB 


BASIC Token: 222 


SQ R Format: SQR(n) 


SQR is a function which calculates the square root of the value represented 
by the numeric expression n, which must be positive (>0), or an ILLEGAL 


QUANTITY ERROR results. 


1@ REM SQR function demo 
20 FOR N=3@ TO 2@ STEP-] 
38 PRINT N,SQRCN) 

4@ NEXT N 


The program produces a display of the numbers from 3@ to 20 with their 
square roots. 


Related keywords: None 


BASIC Token: 179 


STO P Format: STOP 


The instruction sToP halts program execution, displaying the message 
BREAK IN LN where In is the number of the line containing the sTopP instruc- 
tion. The program may be re-started with the command CONT, followed by 
RETURN. It is similar to the instruction END, but END terminates the 
program, which may not be re-started, as the example program illustrates. 


1@ REM STOP 
2@ FOR X=1 TO 3 

3@ PRINT "X="3X 

4 PRINT "PROGRAM HALTED.ENTER CONT TO R 
ESTART." 
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3@ STOP 

6@ NEXT xX 

7@ END 

8@ PRINT" THIS LINE NOT PRINTED;SINCE CON 
T DOES NOT WORK WITH END" 


Related keywords: END, WAIT 


BASIC Token: 130 
STO R E Format: STORE v ,“filename” (,S) 


STORE v$,“‘filename” (,S) 


This facility is only available on V1.1 Orics. STORE is used to save the 
contents of an array as a cassette file on tape. The array must have been 
previously DIMensioned, either via a DIM instruction or implicitly by using 
an array element to set a default 11 element array, else an OUT OF DATA error 
will occur. The array may be a floating point array, e.g. A(20), an integer 
array, e.g. A%(20), or a string array such as A$(20). The array variable must 
be specified as A, A$, or A%, to identify the array correctly. Arrays with 
multiple dimensions are allowed. The “‘filename”’ can be anything you like 
up to 17 characters. 

The same procedure is used as with CSAVE, and the default baud rate of 
2400 baud (fast save) can likewise be altered to the slow rate of 300 baud by 
appending S after a comma (,S) to the end of the command. The message 
SAVING FILENAME (or whatever you’ve called the array) appears on the 
status line, followed by a letter specifying the type of array: R for arrays 
containing Real floating point numbers; I for an Integer array, and s for 
String arrays. Try the following program to see STORE and RECALL in 
action. A$(20) is DIMensioned and loaded with demonstration strings. The 
array is then STORED, and the variables cleared. The program will then 
RECALL the array and PRINT sample values. 


1 REM xxx STORE”“RECALL Xxx 

1@ DIMA$(20) 

2@ FOR F=@ TO 20 

38 LETA$C(FJ="NUMBER "+STRSCF) 

4@ NEXT 

5@ PRINT"START CASSETTE ON RECORD;PRESS 
A KEY" :GET AS 

6@ STORE A$, "ARRAY",S 
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7@ CLEAR 

88 DIM ASC2B8) 

98 PRINT"REWIND CASSETTE,SET TO PLAY; P 
RESS ANY KEY" :GET AS 

108 RECALL A$, "ARRAT",S 

11@ PRINTA$C3) 

120 PRINTASC1@) 

138 END 


Related keywords: CLOAD, CSAVE, DIM, RECALL 


BASIC Token: 234 


ST R $ Format: STR$(n) 


This is a string function, used to transform a numeric value into a string 
form. It is thus the opposite of VAL, which turns a string of numeric 
characters into a number. Exponential and hexadecimal numbers may be 
used, and they will be converted to standard notation (as would normally 
appear on screen) before being turned into a string. The string has a first 
character that holds the sign if the number is negative, but is left as a space if 
the number is positive. 


1 REM XXSTR$ xx 

19 LET N=12.34 

20 CLS:PRINT STR$CNI:WAIT 15 

3@ PLOT 18,1,STR$CNJ:WAIT 45 

4Q PLOT 9,1,STR$CNJ :WAIT 15 

5@ PLOT 18,8,STR$CNIJ:WAIT 15 

60. LET .x=-235.5 

7@ PRINT 

8Q PRINT STR$CX):WAIT 15 

9@ PLOT 9,2,STR$CX) 

10@ PRINT "“HEXADECIMAL #A3 PRINTS AS "S 
TRSC HAS) 

11Q PRINT"1.345E-4PRINTS AS "“STR$C1,. 345 
E-4) 

12@ PRINT"1.23E2 PRINTS AS "STR$C1, 23E2 
i 
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The program uses PLOT to enable it to work on both Oric versions. V1.1 
users could of course use PRINT@ instead of PLOT. As owners of these 
machines will have noticed, there is a bug in the V1.0 that inserts a control 
character (CTRL B) into this space if the number is positive or zero, which 
prints the string in green, if any PLOT position is used to place the string on 
screen. This may be avoided by the use of RIGHTS or MID$ in conjunction 
with LEN to remove the offending first character when the number is 
positive, using SGN or a conditional test to check this. The program below 
does this. Line 30 takes A$, and tests if it needs the first character removing 
by using the fact that the Oric holds the value of —1 as TRUE. IF NOT SGN(N) 
means “‘if the value returned by SGN is not equal to —1 then. . .”. There are 
other ways of expressing the same condition, and two alternatives are given 
for line 3@ to show this. If the test shows that n is zero or positive, then 
RIGHTS is used to take all the characters of A$ except the first. 


1@ REM xVersion 1.@ STR$ bug fixxk 

2@ CLS:LET N=12.34 

3Q A$=STR$C(NJ:IF NOT SGNCN) THEN A$=RIGH 
TS$CA$, LENCASI-1) 

4@ PLOT1;,;90,A$% 

5@ PLOT1@,9,A$ 


Alternatives for line 30 include the following: 


38 A$=STRSCNJ:IF N>=Q@ THEN AS=RIGHTSCAS; 
LENCA$)J-1) 


3@ AS=STR$(N):I1F SGNCNJ>-1 THEN A$=RIGH 
TS$CA$, LENCASIJ-1) 


STR$ is also useful in placing numbers on to the HIRES screen, as only string 
characters can be placed using CHAR. The next program illustrates this, 
using STR$ to get the string form of a number, then taking each character in 
turn, finding the character code with ASC, and placing it on the screen. The 
same technique is used to strip off the first character if the number is not 
negative. 

10 REM Xkxk STR$ xxx 

28 HIRES 

3@ FOR A=1 TO 18 STEP .5 

4Q@ A$S=STRSCA) 

5@ GOSUB 1288 

6@ NEXT 
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7@ END 

100 REM PUT STRING ON HIRES SCREEN 
11Q FOR B=1 TO LENCAS$) 

120 CURSET BxX6+AX6,AX16,9 

13@ CHAR ASCCMID$CA$,BII,@;1 

14@ NEXT 

15@ RETURN 


Related keywords: VAL 


BASIC Token: 194 
TAB Format: PRINT TAB(n) 


TAB is used in a PRINT statement to place PRINT items at a particular column 
position. The value of n defines the column to which the PRINT position will 
be advanced. The next item to be PRINTed will follow directly on, if nothing 
or a semi-colon is placed after the TAB(n) statement, or in the next PRINT field 
if a comma is used. Numbers are PRINTed with leading spaces if not 
negative. Columns are numbered @ to 39 across the screen, and the 
following program will illustrate the effect of the protected columns. The 
V1.0 Oric has a TAB bug, which requires the addition of 13 to the TAB value 
to be effective. The two versions of the program below produce the same 
result on the two versions in normal mode (with protected columns). The 
behaviour of the two machines is different when the column protection is 
turned off (with CTRL-]). Learn the behaviour of your own version, and 
remember that you can always use SPC instead of the difficult TAB of the Oric 
V1.0. 


1@ REM XTAB for Version 1.1x 

20 FOR F=@ TO 15 

3@ PRINT TABCF)5F 

4@ NEXT F 

5@ REM NOW USE CTRL J AND TRY AGAIN 


1@ REMKTAB for Version 1.0x 
28 FOR F=8 TO 15 

3@ PRINT TABCF+1@)35F 

4@ NEXT F 


There can be more than one TAB statement in a PRINT instruction. The next 
example illustrates this. The V1.0 owner has another peculiarity to contend 
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with here, however. The addition of 13 to the column value is only required 
for the setting first TAB value, and after this subsequent TABs in the same 
statement will work correctly. If you are using a V1.0, you must change 
only the first TAB value in each line to 23 (10+13), and leave the second at 
20. 

1@ PRINT TABC19)1@;TABC20) 520 

2@ PRINT TABC19) 310;TABC20),-20 

3@ PRINT TABC1@)"XK"TABC20),"Y" 


Related keywords: LPRINT, PRINT, POS, SPC 


BASIC Token: 228 


TAN Format: TAN(n) 


TAN is a trigonometric function which returns the tangent of the angle given 
by the numeric expression n. TAN gives a result which is equivalent to 
SIN(nyCOS(n). In the right triangle pictured below this is the ratio of Opposite 
side/Adjacent side. The value of n must be expressed in radians. See SIN for 
the conversion of degrees to radians and vice versa. 


B 


C 


The first example program merely displays a table of the values of TAN for 
angles from @ to 360 degrees (2*PI radians). 


1Q@ REM Xkxk TAN Xxx 

28 DEF FNRCDEG)=DEGXPI7182 
38 FOR D=@ TO 3608 

4Q@ P=D720:P*=D/20 

5@ PRINT D,; TANCFNRCD)) 

68 IF P=P*% THEN WAIT 188 
7@ NEXT 
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The second example calculates the distance from B to C (imagine it’s across a 
river whose width is unknown) from a knowledge of the distance Ac (along 
the riverbank) and the angle at A. 


1Q@ REM Xxx TAN Xxx 

28 CLS:PRINT"ANGLE AT A IS "; 

38 READ A:PRINT A 

4@ PRINT"DISTANCE ALONG AC IS "; 

5@ READ AC:PRINT AC 

6@ PRINT:PRINT"SINCE THE TANGENT OF A I] 
S DEFINED” AS” 

78 PRINT"BC’AC WE CAN SEE THAT BC IS TA 
NCAJXAC" 

9@ PRINT:PRINT"THUS BC IS";TANCAJXAC 
188 END 

20@ REM ANGLE IS IN RADIANS 

218 DATA 8.73; 28 


Related keywords: ATN, COS, SIN, PI 


BASIC Token: 161 


TEXT Format: TEXT 


TEXT is an instruction that places the Oric in the standard text mode, as at 
initial switch-on, with the 40 column by 27 row screen, for display of the 
standard character set (and user defined characters). Use of LORES or HIRES 
sets alternative screen modes which remain until countermanded by CLS 
and TEXT respectively. 

The LORES screen will scroll upwards, leaving a TEXT screen, with 
repeated PRINTings, however. 


Related keywords: HIRES, LORES 


BASIC Token: 133 


TROFF Format: TROFF 


TROFF, standing for TRace OFF, turns off the trace facility by which program 
line numbers are displayed on screen as the lines are executed by the BASIC 
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interpreter. See TRON, which activates the trace facility. 


Related keywords: TRON 


BASIC Token: 132 


TRON Format: TRON 


TRON (meaning TRace ON) enables the aid to debugging and tracing 
problems in programs, which prints the line number of each program line 
in square brackets [ ] when the BASIC interpreter encounters and executes 
each line. TRON and TROFF enable the programmer to see the sequence in 
which the lines are executed, as well as the results of the execution which 
would normally be displayed, when inserted (temporarily) into the pro- 
gram listing. In the example program below, there is a problem of an 
endless loop. The TRON statement prints out the line numbers, and we can 
see the flow of control. 


1@ REM Xxkk TRON Xxx 
28 CLS 

32 TRON 

4Q FOR A=1 TO 18 

38 PRINT A 

6@ IF A=6 THEN A=1 
7Q@ NEXT 

8@ END 


Inserting a line 65 TROFF would give us a display of line numbers for only the 
first cycle through the FOR. . . NEXT loop. 


Related keywords: TROFF 


BASIC Token: 239 


T R U E Format: TRUE 


TRUE is a system constant built in to the Oric which returns the value of —1, 
which is used to represent the result of evaluating a conditional expression 
as TRUE. The value used by the Oric for FALSE is 0, and the FALSE variable 
holds this value. The two variables are used in conjunction to make a 
program clearer, primarily in conjunction with the use of flags, which are 
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commonly set to be equal to one of two values, and represent conditions 
which may easily be tested. TRUE must be used with some care if the NOT 
operator is to be used, since the Oric takes any non-zero value for a numeric 
expression to be true, but whereas NOT TRUE=FALSE and NOT FALSE=TRUE, 
the conditional test IF AB THEN . . . will evaluate as TRUE if variable AB is 
anything other than zero, but if AB were, say, 34, then NOT AB would return 
—23. This is not the same as FALSE in the Oric’s eyes! 

The program illustrates the use of TRUE and FALSE to control a REPEAT... 
UNTIL loop. 


3 FLAG=FALSE 

1@ PRINT" INPUT A TWO-LETTER WORD" 

2@ REPEAT 

38 INPUT AS 

4@ IF LENCA$)=2THEN FLAG=TRUE 

9@ UNTIL FLAG=TRUE 

6@ PRINT"SO YOU CAN READ INSTRUCTIONS$" 


Related keywords: FALSE 


BASIC Token: 140 


UNTIL Format: UNTIL c 


UNTIL forms part of the REPEAT ... UNTIL loop structure. When an UNTIL 
statement is encountered, the conditional expression is evaluated. If it is 
found to be TRUE, program control will pass to the next statement, and the 
loop will be exited. If the condition is FALSE, control will be passed back to 
the statement following the REPEAT which initialised the loop. A ?BAD UNTIL 
ERROR will be produced if no corresponding REPEAT is found. 


Related keywords: FALSE, REPEAT, TRUE 


BASIC Token: 217 
USR Format: DEF USR = addr 
USR(i) 


This function allows access to machine code routines in the course of a BASIC 
program. In the command format above, the first example DEFines the start 
address of the machine code routine as addr. 
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In the second format, the routine is called by USR@ and places the value of 
i in the floating point accumulator. Once the machine code routine is 
completed, USR returns to the main body of the program and the result must 
either be printed (PRINT USR @)) or assigned to a variable (A=USR(0)). If there 
are no values to be passed to a machine code routine, then the routine 
should be invoked by CALL. See Chapter 10 for an introduction to machine 
code programming. 


Related keywords: CALL, DEF 


BASIC Token: 235 
VAL Format: VAL(a$) 


This is a string function which returns the numeric value of the characters 
given by the string expression within brackets. The first character of the 
string to be evaluated must begin with a space, a minus sign, a hash sign or a 
number, else zero is returned. After these characters, or the first number, 
the string is evaluated up to the first non-numeric character, as the decimal 
equivalent if a hexadecimal number (starting with #) is found in the string. 
Exponential notation is also handled, and the number will be held in the 
same form as it will print on the screen, rather than in the precise form it 
had within the string. To see this, try entering, say, 1.23E2 into the 
program below, along with any other numeric forms. Any non-numeric 
characters found in the string after the Oric has found characters it can 
interpret as a number will be ignored. 


1@ REM *Xkxk VAL Xxx 

2@ CLS 

38 REPEAT 

4@ INPUT "ANY STRING PLEASE ";A$ 

5@ PRINT "THAT STARTS WITH THE NUMBER" ; 
6@ PRINT VALCAS$) 

7@ PRINT 

8@ UNTIL A$="STOP" 

3@ END 


Related keywords: ASC, STR$ 
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BASIC Token: 181 


WAIT Format: WAIT n 


This instruction gives a delay of n one-hundredths of a second before 
program execution continues. WAIT is crucial to the sound commands of the 
Oric, for the purpose of controlling the duration of the results of PLAy, 
SOUND and MUSIC instructions. It may also be used to introduce pauses into 
programs, for slowing down screen displays, but it should be noted that no 
keyboard input will interrupt a WAITing period. For delays until the user 
presses a key, or inputs data, GET and INPUT must be used. 


Related keywords: MUSIC, SOUND, PLAY 


BASIC Token: 165 


ZA P Format: ZAP 


This is one of the Oric’s pre-defined sounds, producing a noise like a 
futuristic weapon report for use in games. Unlike its Oric comrades, ZAP 
does not need a delay whilst the sound is produced, and it may be used 
repeatedly without the WAIT instruction required by PING, SHOOT and 
EXPLODE. 


1@ FOR F=1T06 
20° PAPER °F 

38 2AP 

4@ NEXT 


Related keywords: EXPLODE, SHOOT, PING 


10 Introducing 
machine code 


Assuming you have had a go at writing some programs in Oric BASIC, you 
may be wondering if you could speed things up a little so that your Invaders 
move more swiftly and smoothly across the screen, and your programs 
generally run faster. You can — but first let us consider why the animated 
effects sometimes appear slow or jerky and noticeable delays occur in 
complex programs. 

BASIC is an interpretive language (although it can also be compiled if a 
suitable program and floppy disk system are available), which means that 
the instructions you code (the program) are held almost exactly as keyed in. 
This means that the BASIC interpreter has to examine each statement at RUN 
time, decide what the statement is trying to do, and then call appropriate 
machine code routines to action the statement. Although the machine code 
routines are themselves very fast and efficient, several routines may need to 
be involved for a single statement. Even more important, each statement 
must be parsed, i.e. scanned for operators such as ‘+’, ‘—’, ‘IF’, etc, and 
then rearranged into a form suitable for linear execution in the specific 
sequence the Oric requires (conforming to the priority sequence) and 
finally passed on to the machine code routines. This is the interpretive 
process, and it occurs for every statement, each time the statement is 
encountered. It is this process which slows things down. Therefore, if we 
code directly in machine code and develop our own routines for specific 
functions, we get code which is very much faster, and it is even possible that 
we may have to introduce delays deliberately to slow things down! Ever 
tried shooting down an Invader which crosses the screen in one-tenth of a 
second? 

However, coding a program in machine code has its disadvantages too. It 
is difficult to learn, it is easier to make mistakes when using machine code, 
and it is more difficult to debug — no helpful messages like ‘SYNTAX ERROR’! 
But it is also interesting and rewarding and, provided that a little care is 
taken, is well within the reach of the hobbyist as well as the serious 
programmer. 

To use machine code efficiently and correctly it is necessary first to learn 
something about the 6502 microprocessor itself, but before we can do this 
we need to know a little about number systems, or ways of representing the 
manipulating numeric information. Knowledge of the way in which charac- 
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ters (such as the alphabet) are represented is also necessary. We will 
therefore deal with these now before we get on to the instruction codes 
themselves. (Do not skip or skim the following paragraphs — they could 
save you hours of debugging!) 


Number systems — decimal 


Thanks to Mother Nature we use a decimal number system for most of our 
arithmetic needs — counting starts on our fingers and thumbs. Thanks to the 
Arabs, who gave us the zero and decimal point, we have been able to 
develop methods for multiplication and division, without which life might 
be a bit tedious. Let’s look first at the decimal number system. 

When we count we usually start at one, although in a count-down we 
count backwards to zero. 5..4..3..2..1. . ZERO- WE HAVE LIFT- 
OFF! The zero is important and should really start any count (upward). 
When we’re counting upwards and reach number nine we than revert to 
zero again, but now add a leading digit (one for the first time, two for the 
second, etc. —0, 1, 2, 3,4, . . . 9, 10). When we reach 99, we add another 
leading digit and revert to zero — 100. 

We are really adding one to the previous number until the last digit 
reaches 9. Then we reset the last digit to zero and carry one, adding it to the 
second-to-last digit. If this is already 9 we reset it to zero and carry one to the 
next digit, and so on. Finally, adding a number greater than one to another 
number is simply a matter of adding one more than once. For example, 9+5 
can be written as 9+ 1+1+1+1+1. We do not normally do this because we 
have memorised the sums of all possible combinations of the digits 0 to 9, 
and the process of addition has become automatic. 

So why state the obvious? Well, patience is a virtue and automatons are 
not creative, so we have to stretch our automatic assumptions. Computers 
generally work in a non-decimal number system. Ever wondered why 1K in 
computing is 1024 instead of 1000 — after all, a kilogram (or kg) is 1000 
grams? You are about to find out, because the next number system is binary. 


Binary 


The binary system uses only two digits: zero and one (0 and 1). In 
computing we always write zero as ‘Q’ to distinguish it from the letter ‘O’, 
and this is a practice which you would do well to follow. In the decimal 
system we had a carry of one whenever we added one to a nine, the nine at 
that position then reverting to zero. In the binary system our carry of one 
occurs when we add one to one, and the digit-position reverts to zero. So, 
1+1=10. This is the first rule. The second is even easier: 0+ 1 (or 1+0)=1. 
The third is obvious: 0+0=0. 


Try this for practice: 10101+01101=? 
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If you did not get an answer of 100010 you need to reread the previous 
paragraph. 

Now let us compare the decimal digits @ to 15 with the binary 
equivalents. 


Decimal Binary Hexadecimal 





0 0000 0 
1 0001 1 
2 0010 2 
3 0011 3 
4 0100 4 
5 0101 5 
6 0110 6 
7 0111 7 
8 1000 8 
9 1001 9 
10 1010 A 
11 1011 B 
12 1100 C 
13 1101 D 
14 1110 E 
15 1111 F 


Being an astute reader you will have noticed two things — that the binary 
numbers were written as a sequence of four binary digits, and that a third 
column labelled ‘hexadecimal’ had been included. You may even have 
noticed that this third column looked like decimal until decimal value 10, 
and that it then became alphabetic. This is because writing long strings of 
ones and zeros can be pretty tedious, and can lead to errors, so we represent 
groups of four binary digits by a single digit. Since there are no single-digit 
numbers greater than 9 we ‘borrow’ the first six characters of the alphabet — 
A, B, C, D, E, and F — to represent the numbers 10 to 15. This makes life 
much easier — for example, the decimal number 1024 in binary is 
010000000000, and in hexadecimal is 400. We arrive at this value by 
grouping the binary digits, from the right, in fours, and then converting 
each group to its hexadecimal (or hex, for short) equivalent. Thus: 


0100 0000 0000 binary 
4 0 ®@ hex 


Very clever, you may think, but what does all this have to do with 
programming in machine code? Everything, but bear with us for a while — 
there are another pair of terms to be introduced first. They are both 
conventions. First, we refer to binary digits as bits. We can say therefore, 
that a hexadecimal (or hex) digit represents four bits. Secondly, the main 
unit of computer memory is the byte, which consists of eight bits. 
Therefore, the contents of a byte can be expressed as two hex digits. For 
example: 
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decimal 17 = binary 00010001 
= hex 11 


The highest binary value that can be contained in a byte (eight bits) is 
expressed: 


1111 1111 
F F inhex 
255 in decimal 


A byte can therefore represent 256 values, i.e. @ to 255 decimal. The bits in 
a byte are numbered @ to 7, right to left, when we need to refer to them 
individually. 

Converting numbers between binary or hex and decimal is likely to get 
tiresome for large numbers unless we understand a little more about 
number systems. Basically, the decimal system is to the base 10, and the 
value of each digit (working from the right) is the product of the digit and 
10, to an increasing power. A power is the number of times a number is 
multiplied by itself, and a power of zero always gives 1 (except for zero to 
the power of zero which is zero). 

For example, decimal 123 can be written as: 


(1x 107)+(2x 10')+(3x 10%) 
or 

(1x 10x 10)+(2x 10)+(3x 1) 
or 

(1x 100)+(2x 10)+(3x1) 

or 

100+20+3=123 


The small numbers above the 10’s are the powers. 


In binary the same principle is used, except that the base used is two. We 
can therefore write decimal 15 in binary as: 


1111 = (1x23)4+(1x22)+(1x2!)4+(1 x22) 
(1x2x2x2)+(1X2x2)+(1x2)4+(1 x1) 
(1X8)+(1X4)+(1X2)+(1x1) 

= 8+4+2+1 

15 Decimal 


ll 


Hexadecimal uses base 16 (there are sixteen digits in the system, @— 15). So, 
hex 21 can be written as: 


hex 21 = (2x16!)+(1x 16%) 
(2X 16)+(1x 1) 
= 32+1 

33 decimal. 
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The above examples show conversion of binary and hexadecimal to deci- 
mal. To convert from decimal into binary or hex we divide by the 
appropriate base, repeatedly, and then string together the remainder digits, 
from the final operation backward: 


decimal 15 15/2=7, remainder 1 
7/2=3, remainder 1 
3/2=1, remainder 1 
1/2=0, remainder 1 


=1111 binary 


decimal 11 11/2=5, remainder 1 
5/2=2, remainder 1 
2/2=1, remainder @ 
1/2=0, remainder 1 


=1011 


Similarly, for conversion from decimal to hexadecimal we divide by 
decimal 16: 


decimal 43 = 43/16=2, RY11=hexB 
2/16=0, RY 2=hex 2 


decimal 107=107/16=6, RY11=hex B 
6/16=0, RY 6=hex 6 


=2B 


| =6B 


Negative numbers 


So far we have considered only arithmetic which results in a positive 
answer. We also need to consider negative results. How are they repre- 
sented and identified? 

The convention in binary systems is to indicate a negative number by 
setting the high (leftmost) bit to a 1. This itself is not enough — another 
convention is also required to allow the addition of positive and negative 
numbers and obtain a correct result. For example, let us add —4 and +5, 
using the high order bit in the former number to indicate negative status or 
sign. 


—4=binary 10000100 
+5=binary 00000101 
binary addition gives 10001001 


This is obviously incorrect. To achieve correct results we must represent 
negative numbers by subjecting the absolute value to a process called two’s 
complementation. This simply entails a reversal of bit values (i.e. swapping 0 
to 1 and vice versa) and adding 1. Let us try it with 4: 


4 decimal= 00000100 
‘Flipping’ @’s and 1’s: 11111011 
Adding 1 gives 11111100 
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Now adding +5 00000101 
Result: 00000001 


The result is nine bits: 100000001. The leftmost bit ‘falls off the end and is 
acarry, which can be ignored. The remaining bits gives a result+ 1, which is 
the correct sum of +5 and —4. To interpret a negative number we subtract 


1 and then ‘flip’ the bits. 
For example: 11111111 
a 1 
11111110 


Flip = 00000001 = 1 and so 11111111 = —1 decimal. 
Now consider the example of 127+1: 


127= 1111111 —the sign bit is @ (positive) 
+ 1= 90000001 


10000000 — the sign bit is now 1! 


This overflow from bit 6 to bit 7 which appears to change the sign of a result 
is an error condition which must be tested and catered for in the arithmetic. 
In practice it is only the most significant bit of the total number that needs to 
be tested for an error — ina 16 bit number it is bit 15. It is therefore essential 
to decide the magnitude of the largest number to be handled when deciding 
how many bytes are to be allocated for number storage. Overflow on low 
order bytes in a multi-byte number may be ignored and only carry testing is 
required. 


Binary coded decimal or BCD 


So far we have been working in binary. It is also possible to represent 
decimal numbers in binary, and perform arithmetic with this form of 
representation. 

Since the largest decimal digit is 9, and can be represented in 4 bits — 1001 
— it is possible to store 2 decimal digits in an eight-bit byte. For example 
99= 10011001. This is known as packed decimal, and the representation of 
decimal numbers in this fashion is known as binary coded decimal, or BCD 
for short. 

When performing arithmetic on packed BCD it is necessary to test for 9s 
overflow — the generation of binary combinators greater than 9 — and adjust 
the digit concerned, carrying 1 to the next digit. 

Tens’ complement numbers can be calculated by subtracting the positive 
value of anumber from a string of 9s which represent the maximum value of 
numbers to be represented, then adding 1. For example, if the largest 
number we intend to work with is 999, the tens’ complement of 2 (i.e. —2) 
will be given by: 
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999 

—. 2 

997 

+ ] 

998 

The sum of (say) 763 —2 will therefore be: 

763 
+ 998 





1761=761+Carry 1 (ignored) 


Fortunately, this process will not be necessary when writing 6502 machine 
code, since this chip has a decimal arithmetic capability! However, the 
above has been included for completeness. Well, that’s the complexity of 
computer numbers clarified (we hope), so let us take a look at addressing. 


Addressing 


When we write in BASIC each statement or group of statements has an 
associated line number. This is for the GOTOs and GOSUBs and can be 
considered as a program address for those commands which cause a transfer 
of control from the normal sequence of processing. If our program was 
purely sequential we would not need GOTOs or GOSUBs, and we would not 
require line numbers either. Some high-level languages other than BASIC 
only need line numbers as labels for jumps. 

When we use machine code we do not use statement numbers (as 
addresses, anyway) and we need some way of pointing the machine code 
equivalents of GOTOs and GOSUBs at the appropriate part of the program. In 
addition, we must decide where our variables (and constants) are to be 
stored in memory, whereas in BASIC this is done for us automatically. When 
we come to the machine-code instructions we will find that many of these 
will require an address (of data, or of the next instruction), and we must 
supply these in a form that is machine executable. This means in binary, 
though preferably represented as hex digits for our convenience, since this 
is what the computer understands. 

The 6502 chip has sixteen address lines, i.e. a memory address contains 
sixteen bits (though a special case, of eight bit addresses, also exists). This 
means that the highest memory location (or byte) is 1111 1111 1111 1111, 
or hex FFFF, or decimal 65535 (which is generally expressed as 64K). If we 
did not use hex notation (of four hex digits) we would need to write strings 
of sixteen bits for each and every instruction which addressed memory! 
Even the simplest program would take a very long time to code and enter, 
and would be extremely error-prone. So, dear programmer, if you have 
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skimmed lightly over the paragraphs which precede this, it might be a good 
idea if you went back to the beginning and re-read this section. Also try 
some examples of your own, and check your answers against the tables at 
the back of this handbook to verify your results. It will be time well spent 
and will soon make you proficient in number system conversions. Even if 
you don’t want to explore the complexities of machine code, an understand- 
ing of binary and hex will stand you in good stead in the world of 
computers. 


Machine code instructions 


Instructions at the machine-code level have two main components — the 
operation code (or op code) and the operand(s). 

The operation code, in the case of the 6502 (and most other micro- 
processors) consists of a single byte. The binary value of this byte specifies 
which operation (e.g. addition or subtraction) is to be performed. (For 
convenience, each op code is given a mnemonic, which means it’s supposed 
to be easier to remember than the hex op code.) A list of op codes, and their 
associated mnemonics, will be found in Appendix 8. 

The second part of an instruction, the operand, varies according to the 
nature of the instruction, and may consist of one or two bytes, or be implied 
by the op code itself (i.e. may not be actually stated as an operand.) In the 
latter case the op code specifies the complete operation. When physical 
operands do exist they contain either an address (one or two bytes) or data 
(one byte). 


oie asta eal 





Op Code Data (1 byte) 
or 
Address (2 bytes) 


With one-byte op codes, it is possible to have 256 different instructions 
(values 0-255). However, the actual number of instructions required for 
satisfactory programming is considerably less, and the 6502 uses the spare 
values to modify the basic instruction set to include different addressing 
modes. As a result, each instruction type may have several different op 
codes, each one using a different mode of addressing. Before we examine 
these modes, however, we need to familiarise ourselves with the concepts of 
registers, pages, indexing, and indirect addressing. 

One principle of machine-code operations should be pointed out briefly 
here. The operations of the 6502 are timed by a clock, which regulates the 
operation cycles of the cpu. A cycle allows one operation to take place. The 
first cycle in executing an operation fetches the op code, then the second 
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and third bytes of the operand are found in the subsequent cycles, if they 
are present. The next cycle will execute the operation, unless indirect 
addressing is being used, which will require more cycles. Different opera- 
tions will thus occupy different numbers of cycles. 


Registers 


A register is a memory location within the 6502 microprocessor chip which 
is used to hold data required by the instruction being executed. Because the 
registers reside within the chip itself, they are not directly addressable 
except by using the instructions which operate on them. The 6502 has six 
registers, one of which has sixteen bits (the PC or program counter 
register), the others (A, X, Y, S, and P registers) being eight-bit registers. 
Registers may also be used as temporary stores (to pass data between 
routines), or as counters. However, each of the registers mentioned above 
has a specific purpose which will be explained shortly. Let us first examine 
the other main concepts. 


Pages 


It was mentioned earlier that the 6502, as a result of having sixteen address 
lines, can directly address 2!° or 65536 locations in main memory. This is 
accomplished via instructions with two-byte addresses (value 0000 to 
FFFF hex). However, one-byte address instructions are also supported, 
which execute faster, and five of the six registers are eight bits (one byte) 
long. This implies that some instructions can address only 256 bytes of 
memory at the very start of RAM! In fact, a special addressing mode exists 
which allows short-address instructions to access the first 256 bytes of 
memory very much faster. This mode is called zero-page addressing, which 
introduces the concept of pages of memory. 

Because of the internal architecture of the 6502, the 64K of RAM may be 
considered to consist of pages of 256 bytes each, with page zero and page 
one having special functions. For completeness, it should be said that 
instructions which cause a page boundary to be crossed take one extra cycle 
to execute. 

The limitations of register length will now be discussed, introducing the 
concept of indexing. 


Indexing 


Indexing is a means of dynamic address modification. In other words, an 
instruction address is changed at the time of execution. This facility is 
necessary to access consecutive items in tables, or arrays, for example, 
which would otherwise require separate instructions for each table item to 
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be accessed. The subscript facility for BASIC arrays is the high-level 
language equivalent. 

You might recall that two of the registers mentioned earlier were the X 
and Y registers. It would be more appropriate to call them the X and Y 
index registers, since they are primarily designed for indexing. In brief, 
some of the op codes specify that the address of the data to be operated on is 
to be calculated (by the chip) by adding the contents of the X or Y registers 
to the specified address operand. To access multiple items in a table, 
therefore, one needs only to modify the contents of the relevant index 
register. Indexing, therefore, is yet another addressing mode. 


Indirect addressing 


Indirection is a very powerful facility which allows an instruction address- 
operand to be selected (rather than computed or modified) from a number 
of possible addresses. The principle is that the address following the op 
code is used to point at a location in memory which contains the required 
address. This second address is used to access the data required by the 
instruction. 


6502 Registers 


Since a large number of instructions use the registers mentioned earlier, we 
will first examine these registers. 


A-Register (accumulator) 


The A-register is also called the accumulator, because it is used to 
accumulate results derived from arithmetic operations. Accumulator-based 
arithmetic is very fast because the operations are carried out within the 
hardware register. However, before any accumulator operation is per- 
formed, the accumulator must first be loaded with data from memory. 
Similarly, after the operation, the modified data is stored back into 
memory. 


X and Y registers (indices) 


These are primarily index registers, and are used for dynamic address 
modification. When used as indices they must first be loaded or initialised. 
There are specific instructions to modify the contents of these registers, and 
other instructions which specify them as indices. 
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S-register (stack pointer) 


The S-register is used to locate the next available location in a special area of 
memory called the stack. The stack is effectively a sequential list of items, 
and is used for subroutine calls and exits. This concept will be dealt with 
more thoroughly in conjunction with subroutine control instructions. The 
stack register always addresses page 1 of RAM. For this reason page | should 
not be used by the programmer. There are specific instructions which use 
the stack register to modify the contents of page 1. 


P-register (processor status) 


This register is really a set of eight one-bit flags, which provide information 
on CPU status following the execution of instruction. The flags are set and 
reset automatically by instruction execution. The values of these flags can 
be tested, and a range of instructions has been provided for this purpose. 

The flags within the P-register are as follows: 

Bit 7: N flag — set if arithmetic result is Negative. 

Bit 6: V flag — is the oVerflow indicator which is set when a carry occurs 
from accumulator bit 6 to bit 7. 

Bit 5: Not used. 

Bit 4: B-flag — set when the BRK (Break) command is executed. 

Bit 3: D-flag — set to 1 when processor is operating in Decimal mode: 0 for 
binary mode. 

Bit 2: I-flag — Interrupt mark. Set by interrupts, or instruction to inhibit 
further interrupts. Cleared by specific instruction. 

Bit 1: Z-flag — set to 1 when the result of arithmetic or data transfer is 
Zero. 

Bit @: C-flag — indicates a ‘Carry’ or ‘borrow’ on arithmetic, or the 
presence of a bit shifted or rotated out of an address or register. 

Some bits within this register can be directly set or reset by the 
programmer. 


PC-register (program counter) 


This is the only sixteen-bit register, and contains the address of the 
instruction following the one currently being executed. Although not 
directly accessible by the programmer, it can be stored into the stack and 
examined in the stack area. The PC-register is used by the cpu (Central 
Processing Unit) in the microprocessor to fetch the next instruction to be 
executed, and is automatically incremented as each instruction/address 
byte is fetched. It is also modified by Branch and Jump instructions, 
whenever these instructions change the sequence of program flow. 
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6502 Addressing modes 


We have now covered some of the concepts of addressing, and move on to 
the actual modes supported by the 6502. 


Implied 


An implied address is one where the address is specified by the op code 
itself. On the 6502, instructions which operate directly on specific registers 
are considered to have implied addresses (for example INX and INY, 
meaning increment X and Y register respectively), and are therefore 
single-byte instructions. 


Immediate 


An immediate address is the address following the op code. Instructions 
operating in immediate mode contain a single byte of data in the byte 
following the op code. This data byte is called a literal. Instructions of this 
kind occupy two bytes. 


Zero page 


A zero-page address is one which specifies a memory location within page 
zero (the first 256 bytes of memory). A zero-page instruction will therefore 
be two bytes long. 


Indexed 


This mode of addressing uses index registers X and Y to modify the address 
following the op code. This address may be one-byte (page zero) or 
two-bytes (anywhere in memory). Instructions may therefore be of two or 
three bytes. 


Absolute 


Absolute addresses are two-byte addresses unmodified by indexing. 
Instructions using this form of addressing are therefore three bytes long. 


Indirect 


Pure indirect addressing uses a two-byte address after the op code to access 
a two-byte data address elsewhere in memory. Both addresses are 
unmodified by indexing. 

Only one instruction in the 6502 instruction set uses this form of 
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addressing — the JMP (Jump) instruction, which is therefore three bytes in 
length. 


Indirect-indexed 


The 6502 supports two forms of indirect-indexed addressing, both of which 
are used with index registers and are restricted to addressing page zero of 
memory. 

The first form uses index register X and will be referred to hereafter as 
indirect-X addressing. It is used to access tables in page zero only. This 
form is actually better described as indexed-indirect, since the index 
register X is added to the zero page address to find the location which 
contains the first byte of the indirection address. This is the two-byte 
address which is used in accessing the memory. 

The second form uses the index register Y and will be called indirect-Y 
addressing. This form allows access to specific entries within tables held 
anywhere in main memory. The final address (of data) is computed by 
adding the contents of Y to the sixteen-bit address pointed to by the page 
zero address following the op code. If the sixteen-bit address held in page 
zero points at the start of a table in main memory, then index register Y can 
be used to point at any specific entry within 256 bytes of the start of the table 
(Y is eight bits long — remember!). Since the op code is always followed by a 
page zero address, indirect-indexed address instructions are two bytes long. 


Relative 


Relative addresses are based on the value held in the program counter, and 
are used by a group of instructions called conditional branches. These 
instructions are two bytes long and specify a test to be made on the 
P-register flags. The address following the op code is a one-byte address 
which specifies the relative address of the next instruction to be executed if 
the test is satisfied. Because the address is only one byte long the range of 
addressing is limited to 256. Since most loops are generally fairly short the 
address byte is allowed to contain both positive and negative (or forward and 
backward) branch addresses. This is accomplished by using the high-order 
bit of the address as a sign bit, allowing a forward branch of up to +127 
bytes, and a backward branch of up to — 128 bytes (using 2’s complement 
arithmetic). Since branch instructions are two bytes long this results in 
actual branch ranges of —126 (—128+2) and +129 (+127+2), relative to 
the address of the branch instruction. 


Instruction classification by addressing mode 


We have seen that several addressing modes exist for 6502 instructions, and 
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it has also been said that multiple op codes exist for each type of instruction. 
We will now expand on these modes and give each an abbreviated name so 
that, when the instructions are to be used, a quick glance at the table at the 
end of this handbook (Appendix 8) will make it easy to see which addressing 
modes (and op codes) are available for each instruction. 


Mode Length Description of mode 

I 1 Implied (implied operands) 

IM 2 Immediate (literal follows op code) 
ZP 2 Zero page (one-byte address) 
ZX 2 Zero page, indexed by X 

ZY 2 Zero page, indexed by Y 

Ix 2 Indirect X 

IY 2 Indirect Y 

RA 2 Relative address (Branch only) 
AB 3 Absolute, no indexing 

AX 3 Absolute, indexed by X 

AY 3 Absolute, indexed by Y 

IN 3 Indirect, no indexing (JMP only) 


The following layout illustrates the format of the various instruction 
modes. Each box represents one byte. 


Instruction formats 


I (Implied) 

IM (Immediate) 

ZP (Zero page) 

ZX (ZP indexed by X) 
ZY (ZP indexed by Y) 
IX (ZP indirect X) 

IY (ZP indirect Y) 

RA (Relative) 

AB (Absolute) 

AX (Abs. indexed by X) 
AY (Abs. indexed by Y) 
IN (Pure indirect) 


[Op Code | 

[Op Code] [Literal] 
Op Code] [ ZP Addr. | 
Op Code ZP Addr. 
Op Code ZP Addr. 
[Op Code] [_ZP Addr. | 
(Op Code] [Rel. Addr. | 
[Op Code] [_2-Byte | Address _| 


[Op Code] [  2-Byte [Ind. Addr. | 
































A further classification of instructions can be made by considering the effect 
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on registers and storage locations when they are executed. The final 
classification can be made on function. 

In the following pages, which describe the instructions, we will group 
them initially by function under the headings of manipulation, test, arith- 
metic, logic, and control. Within each group we will deal with sub-groups of 
instructions similarly. The table in Appendix 8 can then be used for quick 
reference to the op codes for each instruction mnemonic by addressing 
mode. We’ll now take a look at the 6502 instruction set. 


Data manipulation instructions 


By ‘manipulation’ we mean instructions that move data about, from 
memory to a register or vice versa, and between or within registers. The 
6502 does not have instructions capable of moving data directly from one 
set of memory locations to another, so all data must be moved via a register. 
Since the registers that are available for this purpose are only one byte wide, 
we need to move data one byte at a time. After BASIC, where we have 
numeric variables and strings, this may appear both tiresome and slow. 
However, each move takes only a few microseconds, and program loops can 
be used to eliminate repetitive coding. 


(a) Load instructions 


The following instructions load the appropriate register with a single byte 
of data retrieved from the memory location specified by the address 
following the op code. 


LDA Load A (accumulator) 
LDX Load X (index register X) 
LDY Load Y (index register Y) 


(b) Store instructions 


The following instructions place the contents of the register at the memory 
location given by the address — the converse of load. 


STA Store A (accumulator) 
STX Store X (index register X) 
STY Store Y (index register Y) 


To move data from one location to another (say hex 1000 to hex 1001) we 
would use the sequence: 


LDA $1000 
STA $1001 


The $ sign is used here to specify a hex address (in assembler). This is one of 
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the conventions we will adopt from now on. Note that the index registers 
can also be used for this purpose (when not in use as indices, of course). 


(c) Register transfer instructions 


This group of instructions is used to transfer data between registers 
directly, i.e. without using a memory location as an intermediate store. 
Since the operation is entirely between registers, and can be fully specified 
by the mnemonic (and op codes), no address is required, and the instruc- 
tions are one-byte long, and fast in execution. 


TAX Transfer A to X 
TAY Transfer A to Y 
TXA_ Transfer X toA 
TYA Transfer YtoA 
TSX Transfer S to X 
TXS_ Transfer X toS 


Note that there are no instructions to transfer between Y and S or between 
X and Y. 


(d) Shift instructions 


These four instructions manipulate data within the accumulator or a single 
byte of memory. If we consider either as a string of eight bits: 


76543210 


BHEREEEE 


then the string is moved left or right by one bit position so that the endmost 
bit (7 or 0, depending on the instruction) falls off the end into the carry bit in 
the P-register. The vacated bit position is filled with a zero or from the 
previous contents of the carry bit (again, depending on the instruction). 


ASL Arithmetic shift left. 
LSR Logical shift right. 
ROR Rotate right. 

ROL Rotate left. 


The accumulator is the only register which can have its contents shifted 
directly. Note that both types of shift do not take negative numbers into 
account. Bit 7 takes the value of 0 in LSR (which indicates a positive 
number) and the previous value of bit 6 for ASL (which may be either @ or 
1, positive or negative sign). 

The difference between the shift (ASL, LSR) instructions and the two 
rotate instructions is that the latter are effectively nine-bit rotations, since 
the previous contents of the carry bit is shifted into the vacated bit position. 
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ROL is illustrated below as a diagram to indicated this. 
carry 76543210 carry 


out of bit 7 [fl TTI] into bit @ 
Bee eae 


There are four more instructions which could be classified as manipulative, 
but these have been included under ‘control’ because they are concerned 
with stack manipulation. 


Test instructions 


This subset of instructions make true programming possible, since they 
allow different routines to be invoked as a result of programmed decisions. 
The BASIC equivalent is the ‘IF... THEN GOTO. . .’ and they can therefore be 
classified as conditional branches. There are however exceptions to this 
classification. The compare instructions test but do not include a branch 
operation; instead, this instruction sets flags in the P-register, which are 
used by the conditional branch instructions. 

It should be stated immediately that most (but not all) 6502 instructions 
affect the flags in the P-register. You should refer to the section on 
P-register flags now so that the following will be more easily understood. 
The op code table in Appendix 8 shows which flags are affected by each 
instruction, and can therefore be used to select the appropriate conditional 
branch instructions when programming. 


(a) Conditional branches 


P-register 
BCC Branch on carry clear (carry=0) C 
BCS Branch on carry set (carry= 1) C 
BEQ Branch if equal to zero (Z flag=1) Z 
BMI _ Branch on minus (N flag= 1) N 
BNE Branch on not equal to zero (Z flag = 0) Z 
BPL Branch on plus (N flag = 0) N 
BVC Branch on overflow clear (V flag = 0) Vv 
BVS Branch on overflow set (V flag = 1) V 


All the above conditional branch instructions use relative addresses only, 
i.e. one-byte addresses with range + 129 to —126 from current instruction 
byte. 


(b) Compare instructions 


CMP Compare data with contents of accumulator. 
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CPX Compare data with contents of X index register. 
CPY Compare data with contents of Y index register. 


These instructions set the P-register flags Z and C in the following way, 
which can then be tested with conditional branch instructions, as noted: 
Register < data: C = @: Test with BCC 
Register = data: Z = 1: Test with BEQ 
Register >= data: C = 1: Test with BCS 
Register > data: Z = 1 and C = 1: Test with BEQ followed by BCS 


(c) Bit compare 
BIT Compare and set bits in Status 


The BIT instruction performs a comparison between storage and the 
accumulator, and sets the Z flag to 1 if they are equal. Bits 7 and 6 of the 
memory location are transferred to the Status register (N and V flags 
respectively). The accumulator is unchanged. 


Arithmetic instructions 


There are only two types of arithmetic instructions implemented on the 
6502. These are add and subtract operations. Multiplication and division 
must be handled by sub-routines, and these can of course be affected by 
repeated addition or subtraction. 


(a) Arithmetic instructions 


ADC _ Add with carry 

INC Increment memory (add 1) 

INX Increment register X (add 1) 
INY Increment register Y (add 1) 
SBC = Subtract with carry 

DEC Decrement memory (subtract 1) 
DEX Decrement register (subtract 1) 
DEY Decrement register Y (subtract 1) 


The ADC and SBC need special explanation as both use the current value 
of the carry flag as part of the operation. The ADC adds the data at the 
specified address, plus the carry value, to the accumulator. The SBC 
subtracts the data minus the inverse of the carry flag (1 if carry = 0, 9 if 
carry = 1) from the accumulator. When starting a series of linked arith- 
metic operations the carry flag must be cleared before the first ADC and set 
before the first subtract. This is achieved by the following instructions: 
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CLC Clear carry flag. 
SEC Set carry flag. 


The remaining instructions are relatively simple, and do not involve the 
carry flag. Increment increases the value of the register or memory by 1, 
decrement decreases it. Note the absence of direct accumulator increment/ 
decrement instructions. 


(b) Decimal mode 


Two other instructions which are related to arithmetic, but do not actually 
perform arithmetic operations are: 


SED Set decimal mode 
CLD Clear decimal mode (set binary mode) 


Decimal? Yes, the 6502 can also perform decimal arithmetic, as you should 
perhaps have realised from the description of the P-register flags earlier on. 
Decimal arithmetic is performed on data formatted as ‘packed’ decimal, i.e. 
two binary coded decimal digits (@ to 9) per byte. It is most important, if 
switching between decimal and binary arithmetic, to set decimal mode 
before using decimal arithmetic, and to clear decimal mode before attempt- 
ing binary arithmetic. Try adding two BCD numbers in pure binary and 
check the result (make both numbers greater than 5). 


Logic instructions 


There are three logic instructions which operate at the bit level. They are 
used to test combinations of bit patterns and set a flag to indicate the result. 
The result is always either TRUE or FALSE, and to help you understand how 
they operate we will use a diagram called a truth table. The instructions are: 


AND Logical AND of data and accumulator 
ORA Inclusive OR of data and accumulator 
EOR Exclusive OR of data and accumulator 


AND 


Let us first examine AND with the following truth table. The symbol /\ is 
used to represent AND. 


ee SS/|p 
ee Or S| ww 
-sess|> 
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A is an accumulator bit and B is the corresponding data bit. A /\ Bis spoken 
‘A AND B’, and is the logical result of the operation. A zero result is FALSE, 
and a | is TRUE. 

It can be seen from the table that the only combination of accumulator 
and data bit values that yields a TRUE result is the last — when both bits are 1. 
All other combinations yield @—a FALSE result. 

The accumulator bits are affected and contain the results for A /\ B. This 
instruction is generally used to turn off (i.e. set to 0) specific bits in a byte. 

Let us assume that in the accumulator bit 0 was being used as a 
programmed flag (or switch) and we wanted to zeroise it without affecting 
any other bits. We would achieve this by ANDing the accumulator with 
binary 11111110 (hex FE). 


Bits: 76543210 


[1]1]0[1]@|@|0]1] Accumulator before operation 


AND 


1{1{1[1]1]{1]1{@| Data (mask) 
Result [1] 1/0/1}0{@|®|®} Accumulator after operation 


Check the result at each bit position against the truth table. Note that only 
bit 0 has been modified. We use the term ‘mask’ to describe data which is 
being used solely to modify the contents of the accumulator. 








ORA 


The ORA instruction is used to turn bits on (i.e. set them to 1). Look at the 
following truth table for ORA: 


A 
0 
0 
1 
1 


-Srsliw 
a 


In this case if either (or both) bits in A and B are 1, the result is 1. Using the 
same examples as before, we now wish to set bit @ on again, i.e. back to 1. 


Bits: 765432190 


1}1/0|1|®|0|®|0| Accumulator before operation 


ORA 


0|0|0|0)0|0\0 1| Data (mask) 
Result |1/1/0{|1/0|0|®|1} Accumulator after operation 
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The symbol V represents OR. We can refer to the operation as 
‘accumulator V mask’. 


EOR 


The EOR or exclusive or provides a TRUE (i.e. 1) result if one and only one 
of the two corresponding bits is 1, i.e. if one bit is 1 and the corresponding 
bit is @. Here’s the truth table: 


A B AB 
0 0 0 
0 1 1 
1 @ 1 
1 1 0 


¥ is the symbol used for exclusive oR. This instruction is used to turn 
bits on if they are off, and off if they are on, i.e. to change the state of a bit, 
for use, say, as a ‘toggle’ switch. 
Bits: 76543210 
[1|@]1]0[1|0|1]@| Accumulator before operation 


EOR 


1{1}1}/1{1]{1}1])1] Data (mask) 
Result [@/1{@/1{0|1]0|{1} Accumulator after operation 


In this example we have modified several bits in one operation. This can 
also be done with AND and ORA. Try EOR on the accumulator above with 
a mask of 00000000 (hex 00). 











Control instructions 


These instructions, with the exception of NOP, CLI and SEI, are used in 
modifying the sequence of a program, and in altering the flow of conrol. 


NOP No OPeration (do nothing) 
JMP = JuMP or unconditional branch 
JSR Jump to SubRoutine 

RTS — ReTurn from Subroutine 
PHA _PusH A onto stack 

PHP  PusH P onto stack 

PLA PulL A from stack 

PLP PulL P from stack 

BRK  BReaK 

RTI —s- ReTurn from Interrupt 
SEI SEt Interrupt disable flag 
CLI —_CLear Interrupt disable flag 


Introducing machine code 211 


(a) NOP 

This is a one-byie instruction which is used to delay the execution of a 
routine (by two cycles) or te patch-out instructions, if you wish to block a 
section of code. As you might have gathered it simply does nothing, and is 
extremely useful. When used to patch-out instructions, it must be used to 
replace every byte of the instruction, so that two or three NOP instructions 
may be required. 


(b) JMP 
This is the machine-code equivalent of a BASIC GOTO. The sequence of 
control is transferred directly to the specified address. 


(c) JSR and RTS 

These are extremely important instructions in the 6502 instruction set, 
since JSR causes a jump to a routine elsewhere in the program, and the 
RTS instruction provides a return to the instruction following the jump. 
They are directly equivalent to the BASIC GOSUB and RETURN instructions. 
This is made possible by the way the Stack operates, and we should now 
discuss the Stack. 

The Stack is a structure composed of things piled one on top of another. 
The things in this case are addresses, taken from the Program Counter (PC) 
Register. Why do we need a Stack, and how do we use it? Let’s consider an 
example. Overleaf is a possible control flow in a machine-code program. 


Let us consider the following example. A JSR instruction at location $0200 
calls a subroutine at location $0300. At the time of the call the PC-Register 
contains $0203. The address of the instruction following the JSR. The 6502 
will place this address in the stack and then jump to location $0300. At 
location $0300 another JSR is executed, to a subroutine at $0400. The PC8 
contents ($0303) now have to be saved, and are placed after the first address 
in the stack. 

Subroutine $0400 executes to completion, and terminates with an RTS 
instruction. This causes the last address placed in the Stack to be loaded 
into the program counter ($0303) and a jump to the PC address to be taken 
to the instruction following the second JSR. Similarly, when subroutine 
$0300 terminates with an RTS, the PC is loaded with $0203 and execution 
continues from this address. 

Only one question remains — how is the right address selected from the 
Stack? The answer lies in the Stack Pointer Register (s) which always points 
to the next available Stack location, and is automatically up-dated (for- 
wards) by the JSR and (upwards) by the RTS instructions. 

Finally, the 6502 Stack resides in page 1 of memory, i.e. hex 100 to hex 
1FF. Since the Stack Pointer is an 8-bit register the leading 1 in both 
addresses is implied — that is, the 6502 will always assume an extra bit before 
the address. Also, the 6502 Stack is upside down, i.e. the first available 
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USP eee 


eS 20S Mae ters 





| 330i ee a 
333.RTS 


45@ RTS 


7End Subl 


7End Sub2 


| SP=? 203 
(13 

283 

SP=? 303 
(2) 
(3) 
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Stack location is at the bottom (High Address) of the Stack, and the Stack 
Pointer is decremented, on each JSR, by 2 (Addresses stored are absolute, 
16-bit, from the PCR). 

The example given above demonstrated two nested JSR’s, with one JSR 
issued from within the first call (JSR’ed) routine. Since the Stack is 256 
bytes long (1 page), and the PC two bytes long, 128 levels of nesting are 
possible. In practice, it is most unlikely that this degree of nesting will be 
used, so page | locations below the agreed low address may be used by the 
program if required. 


Push and Pull instructions 


These four instructions place and retrieve Accumulator and P-Register 
(Status bits) on and from the Stack. It is sometimes necessary to save and 
restore the P-Register status flags so they are as they were before a 
subroutine call. The PHP instruction will place the P-Register contents on 
the Stack and update the Stack Pointer. The PLP will restore the P- 
Register from the Stack address indicated by the Stack Pointer, and then 
update the Stack Pointer. 

The Accumulator contents may be similarly saved and restored with the 
PHA and PLA instructions. Remember that the RTS takes the last two 
bytes from the top of the Stack, and ensure that Pushes and Pulls are 
ordered so that the RTS does not get erroneous information by trying to 
branch to the contents of the saved Accumulator or P-Register. 


Interrupts 


A complete discourse of Interrupts is beyond the scope of this chapter, and 
we will therefore skim very lightly over the subject. The reader is referred 
to any of several available reference texts on the 6502, if he feels the need to 
explore this area any further. 

Briefly, the 6502 has two types of interrupts: hardware and software. 
When an interrupt occurs the contents of the PC-Register and the P- 
Register are deposited on the Stack, and a Jump is taken to an indirect 
address stored in high memory. These addresses are known as Vectors, and 
the process as Vectoring. The subroutine at the final address services the 
interrupt, and then returns to the point at which normal execution was 
interrupted via an RTI instruction which restores the P-Register and 
PC-Register from the Stack and updates the Stack Pointer. 

The BRK instruction is a software interrupt instruction, which causes a 
Jump to the indirect address at locations FFFE, FFFF. These addresses are 
normally in Oric ROM (Read Only Memory) and therefore not directly 
modifiable. We will leave BRK at this point, and return to it later. 

The last two instructions are the SEI and CLT. These instructions are 
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used to Set or Clear the Interrupt disable flag in the P-Register. When set, 
all interrupts are disabled, i.e. ignored, with the exception of one type of 
hardware interrupt — the NMI, appropriately, Non-Maskable Interrupt. 
Disabling of interrupts is necessary when it is essential to complete a 
process in a specific time, usually very small, because the process is itself 
time-critical. 


Machine Code programming conventions and rules 


We have now completed the 6502 instruction set, and are ready to start 
programming. A few conventions will assist us. 

We introduced the $ earlier on to indicate hex data. We now introduce 
the # to indicate a literal, i.e. an Immediate operand, and % to denote 
binary. 

Machine-code programming has two stages — the symbolic and the 
code-level stages. For example: 


LDA #$00 

in symbolic — Load hex Literal 00 to Accumulator 
A9 00 

is code level (LDA immediate=hexA9) 


We normally develop the program at symbolic level, and then translate it to 
code. This is called assembly, and, if done manually, hand assembly. 


IMPORTANT 


Up to this point we have written all two-byte hex addresses as $hh11, where 
hh is the High Order byte and //] the Low Order byte. This is satisfactory 
and desirable at the symbolic level. However, the 6502 expects 2-byte 
addresses in reverse sequence and machine code must be written this way. 
Thus we code an address as $//hh. For example: 

LDA $103E (Load Accumulator from Absolute Address 103E) 


would be coded as: 
AD 3E10@ (LDA Absolute Op Code = AD) 


This must be remembered when translating from symbolic to code forms. 
Now let us start programming, using some useful machine-code routines as 
examples. 


Machine code examples 


Most programs will use some arithmetic, and it therefore seems appropriate 
to commence with examples of arithmetic routines. We’ll start with the 
addition of two single byte binary numbers, located at hex 500 and hex 501, 
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the result to be stored in hex 502, assuming that the sum can be stored in a 
single byte. 


CLC Clear Carry Flag 

LDA $500 Load First number into Accumulator 
ADC $501 Add second number into Accumulator 
STA $502 Store result 


Easy, wasn’t it? Note the use of CLC before the ADC. 

Now let us try it again, this time with two 3-byte binary numbers, located 
at $501 — $503, $504 — $506, storing the result at $507 — $509, and assuming, 
as before, that the result will fit into 3 bytes. We could repeat the last three 
instructions for each byte to be added, but this is inefficient. We will use 
indexing instead. We will also assume, for this example, that the numbers 
are being stored in memory with the high-order bit first (i.e. lowest 
address), in the conventional manner. It could be stored the other way 
around (low-order byte first) in the same way as two byte addresses — this is 
up to the programmer. Here is the program: 


Address Instruction: 

600 CLC Clear Carry flag 

601 LDX #$03 Load X with @3 (literal) 

603 LDA $500, X Load From Address $500 + X 
606 STA $503, X Add from Address $503 + X 
609 STA $506, X Store result Address $506 + X 
60C DEX Decrement X by 1 

60D BNE*~—12 Go back to $603 if X<>0 


Both programs shown have been written in a symbolic form — they will need 
translation into machine code before they can be used. The # indicates that 
the following characters constitute a literal operand, which will be stored as 
part of the instruction, in immediate address form. The use of ‘“X” 
indicates that the address preceding is to be indexed by register X —i.e. the 
final address for data is the sum of the first address plus the contents of 
register X. The “*” in the last instruction means the contents of the 
PRogram Counter after the instruction has been fetched and decoded, but 
before it has been executed. Now let us look at the machine code. 


Address Mode 

600 18 Implied 

601 A2 03 Immediate 
603 BD 0050 Absolute, X 
606 7D 0350 Absolute, X 
609 9D 06 50 Absolute, X 
60C CA Implied 


60D DO F4 Relative 
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To understand the logic of the process, we could consider the problem 
expressed in diagramatic form, using the flow-charting method. Such a 
flow-chart should be constructed before any attempt at coding, as it 
simplifies the visualisation of logic requirements, and therefore the pro- 
gramming task. It is surprising how much time this can save. Refer to any 
general text on programming if you are interested. 

Note the use of index decrementing to address data bytes in ascending 
order. The following may make it clearer: 


Address Index X Final Address 
500 3 503 
500 2 502 
500 1 501 


If the number $12345 was stored in locations $501 — $503, the low order 
byte ($45) would be taken first, then the middle byte ($23), then the high 
order byte ($1), which is the correct order of addition. 

If we stored numbers in the same way as addresses (compare the 
instructions at location $603 in the symbolic and machine code examples), 
we would need to increment (increase by 1) the register — number $12345 
would be stored as $54321 — and test (with a compare) for an index value of 
3. The method shown saves one instruction and is easier to follow. 
Appendix 8 contains a table of instructions or Op codes, in each addressing 
mode. 

Subtraction routines can be written in the same way, using the addition 
routines as examples. Remember to use SEC (Set Carry) in place of the 
CLC, though. An alternative method is to use 2’s-complement and perform 
subtraction by the addition of a negative number. 

Multiplication and division can also be performed by repetitive addition. 
However, it is more efficient to use shifted addition methods. You should 
refer to one of the standard texts such as Leventhal or Zaks for suitable 
routines. 

Since this is an Oric companion, we will next consider routines that are 
designed for this machine specifically. Screen handling is a good area to 
start with so we will develop a routine to move a character around the 
screen, using keyboard control. There are two ways of doing this — by 
directly accessing the screen area, and using Oric’s own routines by calling 
them from our machine-code program. Keyboard access will use the latter 
method for simplicity. 

This routine will use the Oric arrow keys to move a character around the 
screen in the direction of the arrow key. We will restrict character move- 
ment to rows 2 — 25 ahd columns 2 to 39. (Avoiding the first two lines and 
the attribute columns). 

The TEXT screen consists of 27 rows of 40 columns, although the leftmost 
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columns are reserved for colours and are not usually used in TEXT or LORES 
modes. 

The screen occupies memory locations $BB8@ to $BFEO (48K machines) 
or $3B80 to $3FE@ (16K machines). The program will assume a 48K 
machine. Users of 16K machines must subtract hex 8000 from all screen 
addresses to use the routine. 


188 HIMEM 32767:REM $?7FFF 





101 : 

118 FOR X=@ TO 113 

120 : READ CODE 

138: POKE 32768+xX, CODE 

14@ NEXT X 

150 : 

16@ CLS:PRINT “CURSOR KEYS TO MOVE OR S 
PACE TO END" 


17@ POKE @,#D@:POKE 1,#BB:REM SCREEN 
18Q POKE 2,#02:POKE 3,#@2:REM COL/”ROW 
190 POKE #24£,1:POKE #24F,1:REM KBD 
200 : 

218 FOR xX=1 TO 10 


220 : CALL #8222 
23@ NEXT X 

240 IF KEY$<>" " THEN GOTO 212 

250 POKE #24£,32:POKE #24F,4 

26@ STOP 

1808 REM OP ADDR SYMBOLIC ADDR 
121@ DATA #D8 ‘CLD 8282 
182@ DATA #A9, #22 ‘LDA #$22 1 
1838 DATA #A4, #82 *LDY COL 5 
1848 DATA #91, #22 STA ($08),Y 5 
1850 DATA #2@,#3B,#@2 ’JSR GTORKB ? 
1868 DATA #10,#51 *BPL DISPLY A 
187@ DATA #A4, #02 *LDY COL 

1288 DATA #C9, #88 "CMP #$28 

1898 DATA #92, #4B *BCC DISPLY 
1188 DATA #F@, #@D *BEQ LEFT 

1118 DATA #C9, #@B "CMP #$11 


1120 DATA #FQ,#13 >BEQ UP 


218 


1130 
1148 
115 
116 
1172 
1188 
11390 
1200 
1212 
1220 
1230 
1240 
125 
1268 
1272 
275 
1288 
1298 
1308 
1318 
1320 
1338 
1335 
1348 
358 
360 
1378 
1382 
330 
1408 
1418 
420 
1432 
144 
145 
1468 
1478 
1488 








DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 











Introducing machine code 





HBO, #43 BCS 
HC9, #9 CMP 
HFQ, #QB BEG 
#4C,#41,#8@ ?JMP 
HCQ,#02 ?LEFT CPY 
HFQ,#38 BEG 
#88 "DEY 
#4C,#5D,48@ IMP 
#C@,#2? ?RIGHTCPY 
HF, #30 BEG 
#C8 ‘ INY 
H4C,#50,#8@ ?JMP 
HA6, #03 °UP  LDX 
HEQ, #02 CPX 
HFO, #26 BEQ 
HC6, #03 DEC 
HEA, HEA NOP, 
420,464,882 ’JSR 
#4C,#5D,#8@ 7JMP 
HAG, #83 ‘GOWN LDX 
HE@, #18 CPY 
HFO, #18 BEG 
HE6, #03 INC 
HAS, #28 LDA 
#20,#51,#80 JSR 
#4C, 850,480 ?JMP 
#18 ‘ADD CLC 
HOS, #20 ADC 
#85, #22 STA 
HAS, #00 LDA 
#65, 481 ADC 
#85, #01 ‘STA 
#6 RTS 
#A9,#58?DISPLYLDA 
431,422 STA 
#84, #02 1STY 
#60 RTS 
#38 'SUB SEC 


DISPLY 
#$O9 
RIGHT 
DOWN 
H$O2 
DISPLY 


DISPLY 
#$27? (39) 
DISPLY 


DISPLY 
ROW 


#$02 
DISPLY 
ROW 
NOP 
SUB 
DISPLY 
ROW 
#$1B 
DISPLY 
ROW 
#$28 (40) 
ADD 
DISPLY 


$00 
$00 
#$OO 
$01 
$2] 


#$58 "XK" 
C$00),7 
COL 
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1498 DATA #AS; #00 >LDA $20 

1500 DATA #E9,#28 *SBC #$28 
1518 DATA #85, #00 >STA $20 

152@ DATA #A5, #81 *LDA $8] 

1538 DATA #ES, #80 >SBC #$00 
1548 DATA #85, #81 >STA $8] 

155@ DATA #62 >RTS 


The following is an explanation of the program: 

Line 100 sets the upper limit of memory for BASIC programs. In this 
example we have allowed about 6K for our machine-code programs — in fact 
only 114 bytes are used and the figure was chosen to allow the program to 
start at hex 8000. In practice, where machine-code routines are being used 
with BASIC programs it is preferable to subtract the size of the machine-code 
routines from the current HIMEM position, this being obtained by a 
PRINT DEEK(#A6), and then using HIMEM as shown to set the limit for BASIC. 

Lines 110 to 140 constitute a loop which extracts the machine code from 
the DATA statements and loads it to the specified addresses. This routine is 
called a LOADER, and is the conventional way of using BASIC to load 
machine-code routines. 

Line 160 clears the screen. 

Line 170 sets the screen start address ($BBD@ in our example) into 
known Page @ locations (hex 0,+1). Note the “‘backward” orientation of the 
address. 

Line 180 sets column and row minima in Page @ locations 2 and 3. 

Line 190 sets the keyboard delay and repeat rates to the fastest speeds. 
These are system constants for the Oric operating system, and more of these 
will be found in the Appendix 9. The values and addresses given here are for 
the V1.1 Operating System. 

Lines 210 to 230 form a loop to call our machine-code subroutine ten 
times. Note that # in BASIC means Hexadecimal, but is used in Assembler 
or Symbolic code as a literal sign. Line 24@ tests for a space-bar character, 
which we use in this routine to go back to our main program. When found, 
line 250 resets the keyboard delay and repeat to the original values of 32 and 
4, and halts execution of the program. 

We now come to the machine-code routine itself. The routine has been 
coded with one instruction per DATA statement, for clarity, and the 
symbolic code (or Assembly Language code) has been included in the same 
line as a comment. 

Lines 1010 to 1160 test the incoming keyboard character for cursor 
control codes (i.e. the arrow codes), and take a branch to the appropriate 
routines (labelled LEFT, RIGHT, UP and DOWN) when found, exitting to the 
DISPLAY routine at the end of the program if any other character is entered. 
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The first few instructions set the arithmetic mode (CLD), and clear the 
previously displayed character (“‘X’’) from the screen. Line 1040 uses 
indirect Y addressing to store a blank over the previous ‘“‘X”’ by indexing 
the screen pointer in hex 00+01 by the column position in hex @2. Line 
1050 calls the system keyboard routine (details in Appendix 9) to read the 
keyboard and return the input character in register A. 

Line 1010 reloads the column position in register Y for subsequent use. 

Line 1170 to 124@ are the LEFT and RIGHT routines, which decrement or 
increment the column position by 1, after testing for the minimum and 
maximum column values. 

Line 125@ to 1360 are the UP and DOWN routines. These modify the Row 
address and test for minimum and maximum allowable values. If within 
limits the routines call the SUBTRACT and ADD routines with a JSR 
instruction (lines 1370 to 1430 and lines 1480 to 1550 respectively), which 
modify the screen address in locations 00+01 by a value of decimal 40 
(characters per line). On return from these routines a JMP is taken to the 
final routine in the program, DISPLAY. 

Lines 1440 to 1470 constitute the DISPLAY routine. This routine loads 
register A with ASCII “x”, then puts it on the screen — via an indirect— YSTA 
instruction, where Y (the column) modifies the screen address (in hex 00, 
01). The (updated) value of Y is then re-stored in hex 02 and the program 
exits via an RTS to the CALLing BASIC program at line 230. 

Note line 1280 — two NOP instructions have been used to patch out 
another instruction. If NOP was not available all instruction addresses 
below this statement would have had to have been modified by 2 — very 
time-consuming. Note the use of relative addressing in the Branch instruc- 
tions — try working them out using the symbolic addresses as a guide. 

Now key in the program and use the arrow keys to move the ““X”’ around 
the screen. 


CALL 


The previous machine-code program was invoked by the CALL command in 
BASIC. This is the simplest method of entering a machine-code program and 
involves nothing more than setting the address of the program in the CALL 
statement, in either decimal or hex (preceded by #). There are other ways 
of invoking machine-code logic, but the main advantage of the CALL is that 
several machine-code routines can be easily accessed, by re-using the CALL 
with different addresses. 


! SHRIEK) 


This operator allows new BASIC commands (written in machine code) to be 
defined and used. The address of the machine-code routine must first be 
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placed in locations $2F5 and $2F6 via a DOKE instruction. The command is 
then executed by entering ! followed by any parameters needed by the 
machine-code routine. This PRINT@ example for V1.0 Orics demonstrates 
!X,Y;“ORIC” where X and y are the x and y screen co-ordinates. 


3S REM PRINT @ 


1@ REPEAT 

20 : READ DTA 

30: POKE #4@80+CL,DTA 
4Q : CL=CL+1 


5@ UNTIL DTA=#FF >REM END OF PROG 
99 : 

108 DATA #20, #96, #D9 > JSR GTVALS 
118 DATA #AC, #F8, #82 >LDY GCOL 


128 DATA #C8 *INY 

13@ DATA #8C, #69, #02 >STY CURCOL 
14@ DATA #AS, #1F 7LDA GCL 

150 DATA #A4, #20 >LDY GHC 

160 DATA #85,#12 >STA CURBAS 
178 DATA #84,#13 *STY CURBAS+1 
188 DATA #AS, #3B *LDA #? 5° 


198 DATA #20, #DB,#CF > JSR SYNCHR 
200 DATA #4C,#61,#CB >JMP PRINT 
21@ DATA #FF 

220 : 

5@@ DOKE #2F5, #400 


In the above example the data following the ! are parameters, which the 
system will store in the input buffer when the ! is encountered. To access 
the parameters it is necessary to access the input buffer, which occupies 
locations hex 35 to hex 84. The logic required to do this must include all 
syntax checking and parameter validation, and can therefore be fairly 
complex. To avoid some of this complexity it is possible to use a system 
routine located in Page Zero hex E2, which returns the contents of the input 
buffer in the A Register one character at a time. JSR $00E2 will accomplish 
this. 
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A third method is to use the address of the input buffer in locations $E9 
and $EA, indexed by (say) Register Y, to obtain each character in turn, 
incrementing Y each time, using an indirect — Y LDA instruction. 

If multiple ! commands are required, remember to precede each with 
DOKE #2F5, address-of-routine. 


11° Input/Output 


The Oric has flexible input/output facilities, which enable the enthusiast 
with some experience of simple electronics to control and monitor external 
events using fairly straightforward interfacing techniques. 

The memory map given in Appendix 5 provides the information neces- 
sary to perform such interfacing. There are three identifiable areas: 


1. The spare memory area, #BFE@ to # BFFF. 

2. Top of Page 3 memory, locations from #03FF downwards. 

3. Bottom of Page 3 memory #0300 to #030F which in fact contain the 16 
registers, output ports, etc. of the 6522 VIA (Versatile Interface Ada- 
pator) chip inside the Oric. Of the 16 pin-outs, 8 provide the eight bits of 
the printer interface and are also multiplexed to the sound chip. Certain 
of the remaining 8 connect to the keyboard interface. This chip is 
responsible for a multitude of activities and hence must be used with 
care. 


The areas specified in 1 and 2 above can be configured for interfacing by 
using the expansion bus, which gives access to the necessary control 
pin-outs. The memory locations in 3 above can be interfaced using the 
printer port. 


Memory locations #BFE0@ to #BFFF 


Any memory location between #BFEO and #BFFF can be used as output 
or input by means of the appropriate POKE or PEEK command. External 
devices configured to any location are simply seen as a memory address 
which can be read from or written.to. 

This is RAM/ROM area which is disabled by taking the MAP pin low (MAP), 
and this is particularly important when reading an input from an external 
device. In addition the 1/0 control pin should be pulled low (1/0 CONTROL), 
which will disable the internal 6522 as data is being transferred. 

In theory this should be sufficient but in practice it is necessary to pull the 
ROMDIS pin low (ROMDIS) for adequate transfer of data. MAP and 
VOCONTROL input signals should in principle be driven by an open- 
collector or open-drain device, but interface circuitry gates via the common 
74LS series is equally effective. The R/W pin, which can be used for 
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gating/decoding if necessary, is also available. Typical examples of inter- 
facing circuits using this memory area are given in Appendix 10. 

It should be pointed out that MAP will disable the internal ROM, should it 
be accessed at the same time. This feature is used by the Oric floppy disc 
drives, so take due care as to the area of memory accessed in order not to 
clash with any Oric peripherals. Although we have confined our discussion 
to the area between #BFEO and #BFFF any RAM area, except #0300 to 
#030F, may be disabled by MAP and replaced by external memory or other 
suitably interfaced devices. 


Top of Page 3 memory: #03FF downwards 


This area is probably the easiest to interface and uses the I/O pin as an output 
signal low and, providing the top of Page 3 is being used, i.e. locations 
above #030@F, also uses the I/O CONTROL signal which, as before, needs to be 
pulled low (1/0 CONTROL), in order to disable the internal 6522 VIA chip. 

The VO pin automatically goes low whenever an address in the range 
#0300 to #03FF is being accessed using a POKE or PEEK command, but 
addresses #0300 to #030F are used by the internal 6522 VIA, for output to 
the printer and sound chip, so that disabling the 6522, when used in this 
range, by means of the I/O CONTROL input pin defeats the purpose of 
addressing these locations. Hence, 1/0 CONTROL should be applied in the 
range #0310 to #03FF only for the purpose of interfacing to external 
devices. These locations should be utilised from location #03FF down- 
wards for user I/O since Oric peripherals will be designed to use addresses 
#0300 upwards. In this way any conflict will be postponed until the last 
possible moment! 

As before the R/W (READ/WRITE) pin is available for gating/decoding, 
being low on POKE (1.e. writing to) and high on PEEK (i.e. reading from). 
Typical circuit examples are given in Appendix 10. 


Bottom of Page 3 memory: #0300 to #030F 


This printer interface area is in some respects the trickiest area to use, but 
also the most challenging. These memory locations actually control the 
functions of the 6522 VIA internal to the Oric, which, given its design, are 
many and varied. 

Firstly, the memory locations #0300 to #030F are the 16 controlling 
registers of the VIA. To go through them all is not necessary (thankfully), 
but interested readers are referred to data sheets from the manufacturers or 
supplier. 

We need to know the functions of the first four locations (i.e. 4 of the 
6522 internal registers) and the last one, #0300, #0301, #0302, #0303 and 
#030F. The 6522 chip has two sets of 8 data lines, called port A and port B. 


Input/Output 225 


These data lines are read from or written into through #0300 for port B and 
#0301 for port A, ORB and ORA respectively. However, initially it is 
necessary to specify whether the data lines are to be read from (i.e. used as 
input) or written into (i.e. used as output). This is done by writing to #0302 
for port B and #0303 for port A, DDRB and DDRA respectively. These stand 
for Data Direction Registers A or B, Direction in this case meaning input or 
output. The 7 lines of port B (BO, B1, B2, B3, B5, B6, B7) are configured 
internally, whilst B4 is the STROBE pin on the printer interface. 

All 8 lines of port A (A@, Al, A2, A3, A4, AS, A6, A7) are brought to the 
outside and form the data pins of the printer interface (pins 3, 5, 7, 9, 11, 
13, 15, 17 respectively). 

Before using the printer port for output the following must be noted. 
Usually the 6522 port A is a latching output port, i.e. once the data is output 
to port A it stops there. However, the Oric’s internal 6522 is used for many 
functions and other data transfers occur which use port A, since this port is 
also multiplexed to the sound chip, which in turn is connected to the 
keyboard interface. Therefore simply POKEing a data byte to port A, will not 
latch this data, and latching has to be done externally. There is a STROBE pin 
on the printer socket, which is in fact line B4 of port B, used by the VIA to 
tell a printer that data is ready. This pin provides a negative pulse (it is 
normally high) and can be used as the latching pulse to latch data on to the 
outputs of an external device at the appropriate time. In addition there is 
also the I/O pin on the expansion bus, which will go low when the VIA is 
accessed, since the VIA is mapped on to Page 3 of memory. This too can be 
used as a latching pulse, producing, as with B4, a high-to-low transition. 
Typical latches which can be used are shown in Appendix 10. 

The software to perform an output via port A of the internal Oric 6522 
can be as follows. 

Firstly the LPRINT command, LPRINT CHRS$(), will output the binary 
pattern corresponding to the value of i. Ifi=1, then the bit pattern will look 
like: 


00000001 


and pin 3 of the printer interface socket will go high (5V). 
If i=4, the bit pattern will look like: 


00000100 
DPS ee ds DO 


with pin 7 of the printer socket going high, and so on. 

This command is actually a machine-code subroutine which outputs data 
and a STROBE signal at the appropriate time, when data is on the lines. 

If however, the POKE command is used then data has to be POKEed to 
location #0301, as already mentioned, through which it transfers to port A. 
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Thus we need to POKE #0301,i , where i lies between @ and 255. 

The problem is the latching pulse. BO to B7 are controlled through ors, 
i.e. #0300. B4 (the STROBE) is normally high, so outputting a 0 to B4 will 
produce the STROBE: 


POKE #03900, 1 


where i= xxx@xxxx 
D7 - 8 ie DO 


For example, with i as 175 we will have B4 equal to @. The sequence then 
becomes: 


POKE #0301, i (output data) 
POKE #0300, 175 (latch) 


However, it appears necessary to interpose a time delay between the STROBE 
and the output latch to provide reliable operation. As an alternative to the 
above sequence, the POKE #0301, i statement accesses Page 3, therefore 1/0 
will go low at the appropriate time, and this can be used as a latching pulse. 

For an input into the printer port A, the 6522 must first be told that port 
A is now to receive and not transmit. Latching is not a problem here, but, 
again, either the 1/0 or R/W pin could be used to enable a buffer chip 
(tri-state) during a read operation. Port A of the 6522 is programmed for 
output on power-on, and therefore it is necessary to program for input. 
This can be done by POKEing 0 into location #0303, as this location actually 
maps the Data Direction Register for port A (DDRA), as previously men- 
tioned, so: 


POKE #0303,0 
actually sets all 8 bits of port A for input: 
pO 00000000 
DT Ps ee Sahat D0 
while: 
POKE #0303,3 
sets bits D@ and D1 for output, and D2 to D7 for input, of port A: 
D754 b 8 D0 
DDRA 3: 00000011 


input pins output 
pins 
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10 POKE#0303,0 

15 REM set all bits of port A as inputs 

20 PRINT PEEK(#0301) 

25 REMread port A 

30 = POKE#0303,255 

35 REM set the ORIC 6522 back as an output device 


Line 30 is essential, otherwise the user will find that after 10 and 20 without 
30, the keyboard will be disabled. 

Initially, before any data is input, PRINT PEEK(#0301) will give 255, since 
all data lines of the 6522 are pulled high by pull-up resistors. 

Information on the techniques needed for addressing and decoding data, 
and sample interfacing circuitry, is given in Appendix 1@ and 11. 


Appendix 1 
ASCII Character Codes 


Codes 0-31 

CODE CHARACTER Control Code 

0 Null 

1 Copy CTRL-A 

2 

3 Break CTRL-C 

4 Double height CTRL-D 

5 

6 Keyclick CTRL-F 

7 Bell (PING) CTRL-G 

8 Backspace (Cursor left) CTRL-H 

9 Cursor right CTRL-I 

10 Line feed (Cursor down) CTRL-J 

11 Cursor up CTRL-K 

12 Clear screen CTRL-L 

13 RETURN CTRL-M 

14 Clear line CTRL-N 

15 

16 Printer (purportedly enables/disables the printer, but does not 
function) 

17 Cursor CTRL-Q 

18 

19 Screen CTRL-S 

20 Caps (upper case) CTRL-T 

21 

22 

23 

24 Cancel line CTRL-X 

25 

26 

27 ESC (Escape) 

28 

29 

30 

31 


32 Space 
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Codes 33-127 


The alternate characters are produced in the LORES 1 mode. LORES 0 uses 
standard characters. 


STANDARD — ALTERNATE STANDARD ALTERNATE 
CODE CHARACTER CHARACTER CODE CHARACTER CHARACTER 
33 ! 33 . 71 G 71 & 
34 y 34 . 72 H 72 a 
35 # 35 o 73 I 73 a] 
36 $ 36 : 74 J 74 | 
37 % 37 a 75 K 75 d 
38 & 38 * 76 L 76 4 
39 ; 39 & 77 M 77 ra 
40 ( 4G - 78 N 78 4 
41 ) 41 r 79 O 79 a 
42 * 42 a 80 P 8S - 
43 + 43 a 81 Q 61 . 
44 : 44 - 82 R 82 " 
45 ~ 45 r 83 S 83 = 
46 . 46 3 84 T 84 e 
47 / 47 a 85 U 85 Pr 
48 0 48 . 86 V 86 & 
49 l 49 - 87 W 87 E 
50 2 5S * 88 x 88 " 
51 3 51 . 89 Y 89 2 
52 4 52 8 90 Z. 9D 1 
53 5 53 | 91 [ 91 a 
54 6 54 4 92 | 92 = 
55 7 55 L 93 ] 93 FP 
56 8 56 . 94 t 94 4 
57 9 57 > 95 £ 95 a 
58 : 58 % 96 © 96 | 
59 ; 59 by 97 a 97 | 
60 < 6S & 98 b 98 WW 
61 = 41 t 99 c 99 Ml 
62 > 62 & 100 d 186 W 
63 ? 63 k 101 oe 181 WW 
64 a 64 ® 102 f 192 tf 
65 A 65 Fi) 103 g 193 it 
66 B 66 H 104 h 194 WW 
67 c 67 2 105 i 195 iH 
68 D 68 - 106 j 166 | 
69 E 49 rf 107 k 167 i 
70 F 7@ 4 108 l 188 if 
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STANDARD ALTERNATE STANDARD ALTERNATE 
CODE CHARACTER CHARACTER CODE CHARACTER CHARACTER 
109 m 189 a 119 w 
110 n 119 WW 120 x 
111 oO 111 il 121 y 
112 p 122 Zz 
113 q 123 { 
114 r 124 | 
115 Ss 125 } 
116 t 126 
117 u 127 DEL 127 DEL 
118 Vv 
Codes 128-151 


When you issue a PRINT statement with a character whose ASCII code is 
greater than 128, PRINT will strip the most significant bit (with 128) from 
the character and place the remaining code directly on the screen. Note that 
these ‘stripped’ codes are not treated as control toggles, but directly entered 
as attributes. These codes can only be PRINTed using CHR$(i) and hence only 
operate on the low resolution screens. (If you try using these codes on the 
HIRES screen the Oric will return an illegal quantity error report.) For 
example: 


100 PRINT CHR$(132); CHR$(145);“ATTRIBUTE”’ 


This statement will PRINT the string ‘“ATTRIBUTE”’ in blue letters on a red 
background. Be warned that codes 138, 139, 142, 149, which generate 
double height characters, require two identical program lines to produce 
the desired effect. 


CODE RESULT 


128 Returns black foreground (text/graphics) 

129 Returns red foreground (text/graphics) 

13@ Returns green foreground (text/graphics) 

131 Returns yellow foreground (text/graphics) 

132 Returns blue foreground (text/graphics) 

133 Returns magenta foreground (text/graphics) 

134 Returns cyan foreground (text/graphics) 

135 Returns white foreground (text/graphics) 

136 Returns black foreground (text/graphics) 

137 Returns graphics character 

138 Returns double-height characters (text — see note above) 
139 Returns double-height characters (graphics — see note above) 


140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
15] 
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Returns flashing characters (text) 

Returns flashing characters (graphics) 

Returns flashing double-height characters (text) 
Returns flashing double-height characters (graphics) 
Returns black background 

Returns red background 

Returns green background 

Returns yellow background 

Returns blue background 

Returns magenta background 

Returns cyan background 

Returns white background 


Appendix 2 
Escape Codes 


The Escape codes available on the Oric are as given below. They insert 
attributes into a character position of the screen display, and may be 
entered directly from the keyboard, using the ESC key followed by the 
character, or placed in a program using PRINT CHR$(27), followed by the 
character in a string form (within quotes or using CHR$). 


ESCAPE @ 0 Black ink 

ESCAPE A 1 Red ink 

ESCAPE B 2 Green ink 

ESCAPE C 3 Yellow ink 

ESCAPE D 4 Blue ink 

ESCAPE E 5 Magenta ink 

ESCAPE F 6 Cyan ink 

ESCAPE G 7 White ink 

ESCAPE H 8 Standard text 

ESCAPE I 9 Alternate text 

ESCAPE J 10 Standard Double height 
ESCAPE K 11 Alternate Double height 
ESCAPE L 12 Standard Flashing 
ESCAPE M 13 Alternate Flashing 
ESCAPE N 14 Standard Double height Flashing 
ESCAPE O 15 Alternate Double height Flashing 
ESCAPE P 16 Black paper 

ESCAPE Q 17 Red paper 

ESCAPER 18 Green paper 

ESCAPE S 19 Yellow paper 

ESCAPE T 20 Blue paper 

ESCAPE U 21 Magenta paper 
ESCAPE V 22 Cyan paper 

ESCAPE W 23 White paper 


The following Escape codes are concerned with screen synchronisation: 


ESCAPE X 
ESCAPE Y 


TEXT 60Hz 
TEXT 60Hz 


ESCAPE Z 
ESCAPE { 
ESCAPE} 
ESCAPE } 
ESCAPE ~ 
ESCAPE — 


TEXT 50Hz 
TEXT 50Hz 
GRAPHICS 60Hz 
GRAPHICS 60Hz 
GRAPHICS 50Hz 
GRAPHICS 50Hz 
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The above codes enable the screen display to be co-ordinated with the 
frequency of the a.c. current supply which drives a monitor or TV used by 
the Oric for display, ensuring that the signals put out by the Oric provide 
the correct information. The UK mains supply frequency is 50Hz, and that 
of the US and Europe is 60Hz. 


Appendix 3 
Error Messages 


Error messages are produced by the Oric whenever a program halts, due to 
either errors in the program syntax or structure, or machine limitations. 
The Oric doesn’t make mistakes, but there are restrictions on what it can 
do. The error message is followed by the number of the program line at 
which the error was found, if it occurs during the RUNning of a program. 
This provides an invaluable aid to debugging programs, but it should be 
noted that the error may have a cause earlier in the program. Thus a 
message ?ILLEGAL QUANTITY ERROR IN 130 indicates that an expression in 
line 130 could not be processed because of an incorrect parameter value. The 
value may have been generated earlier in the program, and the error only 
halts the program when the incorrect value is used. TRON and TROFF may be 
used to trace program execution (with suitable PRINT statements to output 
variable values if required) when this type of problem is encountered, in 
conjunction with sTOP instructions to provide breakpoints in the program 
execution. The Oric’s error messages and their explanations are as given 
below. 


?BAD SUBSCRIPT ERROR: The program tried to refer to an array element that 
did not exist. With default arrays, this means outside the range 0-10, and in 
the case of DIMensioned arrays, outside the dimensioned range, as, for 
example, referring to A(20,3) when a DIM A(19,3) Statement was used. 


?BAD UNTIL ERROR: The program encountered an UNTIL statement without 
having a corresponding REPEAT statement stored as the beginning of the 
loop. 


?CAN’T CONTINUE ERROR: After a CTRL-C or STOP instruction has halted a 
program, CONT may only be used if no changes have been made to the 
program. Attempting to use CONT results in this error if any changes have 
been made. 


?DISP TYPE MISMATCH ERROR: Instructions valid only in a single screen mode 
were used with the incorrect mode, such as DRAW or CHAR used when in 
TEXT or LORES mode, or using PLOT and PRINT when in HIRES. 


?DIVISION BY ZERO ERROR: An expression involved the (impossible) task of 
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dividing by zero. Watch out for undefined variables, which return the value 
of zero. 


?FORMULA TOO COMPLEX ERROR: The number of intermediate values which 
the Oric needs to store when interpreting and evaluating an expression can 
exceed the storage available, and this error results. Break down the 
expression into smaller sections for evaluation. 


2ILLEGAL DIRECT ERROR: A statement only allowed within a program line 
(such as INPUT or GET) was used as a direct command. 


?ILLEGAL QUANTITY ERROR: A parameter in an expression was outside the 
valid range. Check the keyword definitions for valid ranges, the values 
returned by computed expressions used as parameters, any use of INT, and 
the rounding processes the Oric does automatically, when adjusting com- 
puted values to integers. The error is also generated when an integer value 
greater than 32767 or less than — 32768 is assigned to an integer variable. 


2NEXT WITHOUT FOR ERROR: The program encountered a NEXT statement 
when no corresponding FOR...TO statement was stored. Either the 
FOR... TO was omitted, or the flow of control in the program jumped into a 
loop. 


2?0UT OF DATA ERROR: The program was instructed to READ non-existent 
DATA items, i.e. too many READ statements and/or too few DATA items. 


2?OUT OF MEMORY ERROR: The Oric has memory allocated to store various 
data, such as the BASIC program, variables, and screen. If the combined 
requirements of these areas exceeds the available memory, this error is 
produced. Note that HIMEM restricts the area available to the BASIC program 
and variables if it is lowered. FRE can be used to close up the space given 
over to string storage, which becomes larger than is required by the volume 
of data if many string operations are performed in a program, as strings are 
shuffled around. If more than 24 subroutines, or REPEAT . . UNTIL loops, or 
more than 1@ FOR .. NEXT loops, are nested in a program the stack space 
allocated for storage of return line numbers is exceeded, and, since a 
particular area of memory is full, we get the same error message. 


?OVERFLOW ERROR: If the Oric generates a number too large for it to handle 
in the course of a calculation then the number cannot be stored in the 5-byte 
representation used by the Oric, and this error is generated. The largest 
value the Oric can hold is approximately 1.7E38 and the smallest 2.93E-39. 


?REDIM’D ARRAY ERROR: Any array previously dimensioned, either as a 
default array (11 elements per dimension) or with a DIM statement, cannot 
be re-DIMensioned in the course of a program. 


?REDO FROM START: In response to an INPUT statement requiring a numeric 
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data entry, non-numeric data was entered. Control returns to the INPUT 
statement to allow re-entry of data. 


?RETURN WITHOUT GOSUB ERROR: The program encountered a RETURN 
statement without having previously processed a corresponding GOSUB 
instruction. 


?2STRING TOO LONG ERROR: Maximum length of a string is 255 characters. 


?>SYNTAX ERROR: The instruction being interpreted has an incorrect format. 
This may be either punctuation (incorrect or missing) or misspelt 
keywords. 


2?TYPE MISMATCH ERROR: This error occurs when a string is assigned to a 
numeric variable or function, and vice versa. 


?UNDEF’D STATEMENT ERROR: The program attempted to transfer control, 
in response to a GOTO, GOSUB or THEN statement, to a line number that did 
not exist. 


?UNDEF’D FUNCTION ERROR: An instruction to evaluate a user-defined 
function was encountered in the program where it had not been previously 
specified with a DEF FN statement. 


Appendix 4 
screen grids 
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Y CO-ORDINATES 


TEXT Screen 


Reserved column (for background colour) usually protected in both text and lores 


20 


25 


In text mode this is usually reserved for foreground colour; 


























































































































































































































t 
X CO-ORDINATES 
LOW RESOLUTION MODE 
(TEXT, LORES) 


may be used in lores mode Screen 
G 5 1) 1S 26 - 30 35 39 Addresses 
[ | lec fi 4804048979 (#BBA8— #BBCF) 
| 48080-48119 (#BBDO— #BBF7) 
T r 48129-48159 (#BBF8— #BCIF) 
r + r 1 48166-48199 (#BC20- #BC47) 
| | 48200 — 48239 (#BC48— #BC6F) 
| t 48249 — 48279 (#BC70— #BC97) 
a 1 1+ 48289-48319 (#BC98— #BCBF) 
| | f 11] 48320-48359 (#BCC- #BCE7) 
48366-48399 (#BCE8— #BDOF) 
ct +++ 48440-48439 (#BDI9— #BD37) 
4 4 +++ 48440-48479 (#BD38— #BDSF) 
4 48489-48519 (#BDé6¢- #BD87) 
L 48526-48559 (#BD88— #BDAF) 
Be | ++ 48560-48599 (#BDB0 - #BDD7) 
| | | 48600 — 48639 (#BDD8- #BDFF) 
{| | | 48640-48679 (#BEQ0— #BE27) 
[ | | | -- 1] 48680-48719 (#BE28— #BE4F) 
el [| Rel: lL [ +_| 48720-48759 (#BES0— #BE77) 
| f eee: Hale 1, 48760-48799 (#BE78— #BE9F) 
im | 17 48890-48839 (#BEAO_ #BEC7) 
iia 4884048879 (#BEC8— #BEEF) 
| | 48880-48919 (#BEFO— #BF17) 
| | | 4892648959 (#BF18— #BF3F) 
48960 — 48999 (#BF40— #BF67) 
| | | [24 49009-49039 (#BF68— #BF8F) 
T . | 49049-49979 (#BF90— #BFB7) 
a 1 imi [ 49080-49119 (#BFB8— #BFDF) 


239 


Appendix 4 — Screen grids 
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Appendix 5 
Memory map 


The memory maps given here are for TEXTand HIRES modes. All addresses 
are given in hexadecimal. The HIRES map has user Input/Output locations 
marked. These are the same in TEXT mode. The 16K RAM Oric addresses 
are given on the left and the 48K addresses on the right. 
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TEXT MODE 


16k FFF 48K FFFF 






COBO 
NO MEMORY 
LOCATIONS HERE C000 
4000 SPARE 
3FEG BFEO 











SCREEN 


ALTERNATE CHAR SET 
STANDARD CHAR SET 


This area available for 
user programs only 
if GRAB used 


BOG 8 ee ee a 9800 


BB80 


B800 


USER PROGRAM AREA 
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(W3UV SIHL NI 
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Appendix 6 
Binary/hex/decimal 
conversions 


This appendix gives, firstly, a table of the equivalent hexadecimal and 
binary numbers for decimal values up to 255. A table is then provided for 
hex/decimal/hex conversion. Any hex number is easily converted to deci- 
mal with a simple PRINT #xxxx instruction on your Oric, and decimal to hex 
conversion is also provided via HEX$. 


Decimal Hex Binary 

7) #20 20000000 
1 #01 Q0000001 
2 #02 @0000010 
3 #03 00000011 
4 #04 00000100 
be #05 @0000101 
& #06 000001190 
7 #07 @0000111 
8 #08 00001000 
9 #O9 020001001 
10 #0A 20001010 
11 #0B @@001011 
12 #OC 020001100 
13 #@D @0001101 
14 #OE @0001110 
15 #OF @@@@1iii1 
16 #10 00010000 
17 #11 20010001 
18 #12 20010010 
19 #13 00010011 
20 #14 020010100 
21 #15 @0010101 
22 #16 00010110 
23 #17 @@01i10111 
24 #18 20011000 
25 #19 02011001 
264 #1A 00011010 


27 #18B 00011011 
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Decimal Hex Binary 

28 #1C 000111008 
29 #1D 00011101 
30 #1E 090011110 
31 #1F @0011111 
32 #20 00100000 
33 #21 00100001 
34 #22 00100010 
35 #23 00100011 
36 #24 00100100 
37 #25 020100101 
38 #26 00100110 
39 #27 00100111 
4@ #28 00101000 
41 #29 20101001 
42 #2A 00101019 
43 #2B 00101011 
44 #2C 00101100 
45 #2D 00101101 
46 #2E 00101110 
47 #2F @@1@1111 
48 #30 020110000 
49 #31 00110001 
58 #32 001100190 
51 #33 00110011 
S2 #34 00110100 
S53 #35 @0110101 
54 #36 00110110 
35 #37 @0110111 
56 #38 00111000 
57 #39 00111001 
58 #3A 00111010 
59 #3B 00111011 
460 #3C 00111100 
41 #3D 00111101 
62 #3E @0@111110 
63 #3F @@111111 
44 #40 01000000 
65 #41 01000001 
46 #42 01000010 
67 #43 01000011 
68 #44 01000100 


69 #45 01000101 
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Decimal Hex Binary 

72 #464 012000110 
71 #47 01000111 
72 #48 01001000 
73 #49 01001001 
74 #40 010010190 
73 #4B @10@01011 
764 #4C 21001100 
77 #4D 01001101 
78 #4E 91001110 
79 #4F @10@01111 
80 #50 01010000 
81 #51 01010001 
B2 #52 01010010 
83 #53 021010011 
84 #54 021010100 
85 #55 01010101 
84 #546 01010110 
87 #57 @1010111 
88 #58 01011000 
89 #59 01011001 
98 #5A 021011010 
91 #5B 01011011 
92 #5C 01011100 
93 #5D @10111@1 
94 #5E 01011110 
95 #5F @1@11111 
96 #460 01100000 
97 #61 01100001 
98 #42 01100010 
99 #43 01100011 
100 #44 01100100 
101 #65 01100101 
102 #46 01100110 
103 #67 01100111 
104 #48 01101000 
105 #49 01101001 
106 #4A @11010190 
107 #46B @1101011 
108 #46C 01101100 
1@a9 #4D 01101101 
1190 #6E 091101110 


111 #6F @1101111 
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Decimal Hex Binary 

112 #70 01110000 
113 #71 01110001 
114 #72 01110010 
115 #73 01110011 
116 #74 01110100 
117 #75 @1110101 
118 #76 @11101190 
119 #77 @1110111 
120 #78 01111000 
121 #79 01111001 
122 #7A @1111010 
123 #78B 01111011 
124 #7C 01111100 
125 #7D @1111101 
126 #7E @111111@ 
127 #7F @1111111 
128 #80 18000000 
129 #81 10@@@0Q@1 
13@ #82 19000010 
131 #83 10000011 
132 #84 10000100 
133 #85 10000101 
134 #86 10000110 
135 #87 1@00@111 
136 #88 10001000 
137 #89 10001001 
138 #8A 10001010 
139 #8B 10001011 
140 #8C 10001100 
141 #8D 10001101 
142 #8E 10001110 
143 #8F 10001111 
144 #90 10010000 
145 #91 10010001 
144 #92 10010010 
147 #93 14010011 
148 #94 10010100 
149 #95 19010101 
150 #95 10010110 
151 #97 10010111 
152 #98 10011000 


153 #99 10011001 
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Decimal Hex Binary 

154 #IA 10011010 
155 #9B 10011011 
154 #9C 10011100 
157 #9D 10011101 
158 #9E 10011110 
159 #OF 1@@11111 
16@ #AQ 10100000 
161 #AL 10100001 
1462 #A2 10100010 
143 #AZS 10100011 
164 #A4 10100100 
1465 #AS 10100101 
166 #ASG 10100118 
147 #A7 10100111 
168 #AB 10101000 
169 #A9 10101001 
170 #AA 10101010 
171 #AB 10101011 
172 #AC 10101100 
173 #AD 10101101 
174 #AE 10101110 
175 #AF 10101111 
176 #BO 10110000 
177 #Bi1 10110001 
178 #B2 10110010 
179 #BS 1011@@11 
180 #B4 10110100 
181 #BS 10110101 
182 #BS 10110110 
183 #B7 10110111 
184 #B8 10111000 
185 #B9 10111001 
184 #BA 10111019 
187 #BB 10111011 
188 #BC 10111100 
189 #BD 10111101 
198 #BE 10111110 
191 #BF 10111111 
192 #CO 11000000 
193 #C1 11000001 
194 #C2 1102000190 


195 #C3 11000011 
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Decimal Hex Binary 

196 #C4 110080100 
197 #C5 11000101 
198 #C6 11000110 
199 #C7 11000111 
200 #C8 11001000 
201 #C9 11001001 
202 #CA 11001010 
203 #CB 11001011 
204 #CC 11001100 
205 #CD 11001101 
206 #CE 11001110 
207 #CF 11001111 
208 #DO 11010000 
209 #D1 11010001 
210 #D2 11010010 
211 #D3 11010011 
212 #D4 11010100 
213 #DS 11010101 
214 #D4 11010118 
215 #D7 11010111 
216 #D8 11011000 
217 #D9 11011001 
218 #DA 11011010 
219 #DB 11011011 
220 #DC 110911100 
221 #DD 11011101 
222 #DE 11011110 
223 #DF 11011111 
224 #EQ 11100000 
225 #E 1 11100001 
226 #E2 11100010 
227 #ES 11100011 
228 #E4 11100100 
229 #ES 111001061 
2308 #ES 11100110 
231 #E7 11100111 
232 #E8 11101000 
233 #E9 11101001 
234 #EA 11101010 
235 #EB 11101011 
236 #EC 11101100 


237 #ED 11101101 
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Decimal 


238 
239 
248 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


Decimal/Hex/Decimal Conversion Table 


Hex 


#EE 
#EF 
#FO 
#F 1 
#F 2 
#FS 
#F 4 
#FS 
#F6 
#F 7 
#F8 
#F9 
#FA 
#FB 
#FC 
#FD 
#FE 
#FF 


Binary 

11101110 
11101111 
11110000 
11110001 
11110010 
11110011 
11110100 
11110101 
11110110 
11110111 
11111000 
11111001 
11111010 
11111011 
11111100 
11111101 
11111110 
11111111 











| 
DEC Lex DEC 









































HEX _| HEX DEC 
0 a’) 0| @ 0 
| 256 | | 16 | | l 
2 rae: 32 | 2 2 
3 768 | 3 48 | 3 * 3 
4 1924 | 4 64] 4 4 
5 1280 | 5 80 | 5 5 
6 1536 | 6 96 | 6 6 
7 1792 | 7 112 | 7 7 
8 2048 | 8 128 | 8 8 
9 2304 | 9 144 | 9 9 | 
A 2560 | A 166 A 16 
B 2816 | B 176 | B im 
C 3076 | C 1921 C 12 
D  __—3328 | D ~—sa208 | D 13 | 
E 3584 | E 224 | 14 
F 3840 | F 240 | F 15 





To use this table for decimal to hexadecimal conversion, take the decimal 
number, for example 49120. Find the largest number in the table that is less 
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than the number to be converted. For our example, this is 45056, in column 
3 of the table. The hex digit corresponding is B, which gives us our first 
hexadecimal digit. Next take the value of this away from the original 
number. 49120-45056 is 4064. The nearest smaller number (3840) is found 
in column 2. This gives us F as our next hex digit. (If the next smallest 
number is in column 1, we give a zero value as our next hex digit. ) 

Repeating the procedure, 4064—-3840 gives a remainder of 224, which is 
hex E in column 1. There is no remainder, so our last digit is @. Decimal 
49120=hexBFE0. 

Hex to decimal conversion is simple. Merely add the decimal values 
corresponding to the hex digits. #BFE@, for example, gives us 
45056+ 3840+224+0=49120. 


Appendix 7 
Oric MCP-40 printer 
use 


In this appendix we will look at the operation of the Oric printer/plotter. 
This sophisticated device allows us to produce high-quality graphical 
output which is comparable with printouts produced by devices costing 
over a thousand pounds. 

The printer owes much of its versatility to the remarkably advanced 
4-colour penholder which can be positioned to an accuracy of less than 
1/100th of an inch. We will examine in detail the operation of the printer as a 
pen plotter for drawing pictures, but first we will consider the action as a 
colour printer. 

We can send characters to the printer using the LPRINT and LLIST com- 
mands which are almost identical in effect to the PRINT and LIST commands. 
There are, however, some control codes which we can send to the printer to 
access its plotter functions and colours. The four control codes we can use 
are summarised in the table below: 


Character Effect 
8 Backspace 
10 Line Feed 
11 Reverse Line Feed 
29 Rotate Pen holder 


Note that use of character 29 only allows the programmer to rotate the pen 
holder one position, and not to choose a specific colour. This means that 
you'll have to keep careful track of the current colour if you use this 
method. 

There are two other control codes which we can use to control the 
printer: CHR$(18) tells the printer to enter the plotter graphics mode and 
CHR§(17) tells the printer to return to text mode. 

From now on we will consider the use of the printer as a graphic plotter. 
In this mode it has a much wider range of control characters. Once we have 
entered the plotter mode any of the alphabetic characters in the list below 

- will be taken as the start of a command sequence. The parameters are 
simply LPRINTed to the printer following the appropriate command charac- 
ter and may be either string literals or the results of evaluating variables or 
calculations. Some of the commands are accompanied by example pro- 
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grams which use these commands to produce sample diagrams. (Note that 
the programs were written on the V1.1 and the V1.0 stR$ bug will require 
that you convert numbers into strings and then remove the first character 
before sending them to the printer. Use, for example, MID$(STR$(x),2) to get 
the correct string. 





Character Parameters Effect 

A Exit plotter mode. 

C n Change pens to number n(@-3). (colours are 
usually arranged Black, Blue, Green and 
Red.) 

D X,Y Draw from current position to (x,y). More 
than one set of coordinates may be included. 

H Move pen to plotter origin. 

I Reset origin to current position. 

J X,V Draw relative to current position. 

L n Choose type of line which is drawn (see dia- 
gram). Parameter n may be in the range 0-15. 

1@ LPRINT CHR$C18) 

2@ FOR I=@ TO 15 

3@ LPRINT "I" 

4@ LPRINT "L"31 

5@ LPRINT"P"3"LINE TYPE:" 31 

6@ LPRINT “D400,0" 

7@ LPRINT "M@,-20" 

8@ NEXT I 

9@ LPRINT CHR$(17) 

1@@ END 

LINE TYPE: @ 

LINE TYPE: 1 

TNE: TGR Bees FZ sce cnet Ds aS oe 

ILNE. Tei RES <3) mo ce a a roe ot 

LAINE TPE ed 225 oa ee tae ees 

ISIE. qeIPES “S: | o22 ech eee ee 

EINES YPE? 0: =xc2)i oe petccoteenens 

EINES TURES 27> 620 3 2 he eer 

INE; TPES 8° 22 ke cee ie ee ee 

aT NES GPE Se eet es 

NED APE: TQ") ee o ees es 

PINE @EYRE® clit ce. 026 Sree us Sey ce ee 

LINE TYPE: 12 
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LINE TYPE: 13 
LINE TYPE: 14 
LINE: RPE 2S 





M X,Y Move pen to (x,y). 

P a$ Print the characters in a$ up to the next car- 
riage return. 

Q n Set print orientation. The value of n (0-3) 


chooses normal, down, backwards (upside 
down) or up, as in the diagram below. 


1@ LPRINT CHR$(19) 

28 LPRINT "M249,8" 

3@ FOR N= TO 3 

4Q LPRINT “Q"5N 

5@ LPRINT "PBRIAN WAS HERE" 
6@ NEXT 

7@ LPRINT CHR$(17) 

80 END 


BRIAN WAS HERE 


BRIAN WAS HERE 
3udH SYM NUTS 


4YSH SUM NUITAG 


X,Y Move pen relative to the current position. 
n Size of characters for printing. n can be 0 to 
63. @ gives 80 characters per line, 63 gives 1 
character per line. 


nm 


18 
20 
32 
40 
14) 
68 
70 
89 
398 
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LPRINT CHR$C18)5°1" 
FOR N=@ TO 4 

LPRIMNT "S"5N 

LPRINT “PHELLO" 
NEXT 
LPRINT'M@, -580" 
LPRINT"S63" 
LPRIND Ra 
LPRINT"S1" 





190 LPRINTCHR$(17) 
11@ END 


euHELLOHELLOHELLOH Ee L a 8 





a,d,n Axis drawing command. The parameters are: 
a axis direction, (@ for y,1 for x) 
d distance between tick marks 
n number of marks along axis 
See the example below for the effects of these 
parameters. 
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1@ LPRINT CHRS$C18)5"I" 
2@ LPRINT "M200, -200" 
38 LPRINT "XQ, 1@@,4" 
4@ LPRINT "MQ," 

3@ LPRINT "X1,180,4" 
6@ LPRINT "NG," 

7@ FOR X=@ TO 420 

88 A=C(X-208)xP1/718@ 

38 Y=SINCAJX140 

10@ LPRINT "D"5x%3","57 
118 NEXT 

12@ LPRINT CHR$C17) 
13@ END 


We will now have a look at a simple utility program for drawing diagrams of 
user-defined characters. This will provide an example of the potential for 
serious use that is inherent in the Oric MCP-40’s high-resolution graphical 
abilities. You may have noticed that some diagrams in this book were drawn 
on the Oric printer, although its limited width prevents it producing large 


display graphics. 


18 

20 

32 

4Q 

14) 

68 

72 

82 

39 

108 
11 
128 
132 
142 
150 
168 
17 
188 
138 
288 
218 
220 
238 
248 
250 
268 
272 
280 
2398 
388 
400 
419 
420 
438 
44 
458 
460 
470 
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LPRINT CHR$C18) 


LPRINT 
LPRINT 


"MB, -48" 
i a 


FOR ]=8@ TO 8 





LPRINT "M9@,";1k3a+3@ 
LPRINT "D227," ;1*3@+3@:1F I>6 THENS@ 
LPRINT "M" 31X3Q+98;", 30" 
LPRINT "D" 3 1*30+9@3",272" 
NEXT 

LPRINT "Q3" 

FOR I=5 TO @ STEP~1 

X=27Q- 13-5 :1=275 

LPRINT Me gay 

LPRINT "P"3241 

NEXT :LPRINT" 2" 

FOR I=1 TO 8 

READ P:Q=P 

FOR J=5 TO @ STEP ~1 
PP=INTC2°J+. 1) 

IF P>=PP THEN P=P-PP:GOSUB 422 
NEXT J 

X=29] 3 ¥=270- 138+ 

LPRINT "M" 5X5") "5Y 

LPRINT "P"; 

IF Q<1@@ THEN LPRINT " "3 
IF Q<1@ THEN LPRINT " "3 
LPRINT " "30 

NEXT 

LPRINT CHR$(17) 

END 

X=3Ok(8-J) :¥=270-30x! 

FOR A=@ TO 38 STEP 5 
LPRINT "M"3X5"5"3YtA 
LPRINT "D" 3X+30-Aj"5"57+32 
NEXT 

FOR A=5 TO 38 STEP 5 
LPRINT "M" 5 X+A5", "G7 
LPRINT "D"3X+3Q3"5"3Y+30-A 
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480 NEXT 

49@ RETURN 

5308 DATA 17;45,;43,36,6,14,12,12 

Here is a sample output from this program, showing how it translates the 


decimal data defining the character into binary, and thence into graphical 
form. 










-_/ 1? 
se 45 
UY, Wi. YUla 
Ay Yj | 36 
= oo 
UZ 14 
YY 12 
GG | 12 





We hope that this brief introduction to the wonders of the Oric’s printer 
will have inspired you with as much enthusiasm as we have for this versatile 
and remarkable little machine. Just a few last words to say that the 
MCP-40’s manual is clearly written and that, with the aid of these few 
examples, you should have little difficulty in using it effectively with your 
Oric-1. The printer has a standard centronics interface and can also be 
connected to other computers if desired. Now we will leave it to the printer 
to have the final word in this section. 
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LPRINT CHR$C18) 5°." 
LPRINT "M24@,-240" 
LPRINT "I" 
LPRINT "M@,8" 
A=1Q0 :B=34 
REPEAT 
GOSUB 289 
B=A-A=At+2G 
GOSUB 288 
B=Bt+4Q 
UNTIL B=210 
B=200:GOSUB 200 
LPRINT "M10@,-250" 
LPRINT "“PBYE?" 
LPRINT CHR$C17) 
END 
LPRINT"M" 543°," 
FOR M=@ TO 2xPI STEP PI712@ 
X=AXCOSCM) ?- Y=BXSINCM) 
LPRINT"D" 5X%5°.° 57 
NEXT 
LPRINT"D" 545,759" 
RETURN 





Appendix 8 
6502 OP codes 


The tables presented in this appendix give the 6502 Op Codes, with the hex 
codes for each mnemonic categorised by address mode. 


The notation is as follows: 


R1_ Register Changed 

R2___ Sending Register 

A Accumulator 

X ~~ Register X 

Y Register Y 

S Stack Register 

PC Program Counter 

P Processor Register (Status Flags) 
M_ Memory Location 


The P Register flags are: 


Bit 0 Carry 
Zero 
Interrupt 
Decimal 
Break 
(not used) 
oVerflow 


Negative 


NAUDPWN 
Za *RBOo=no 
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ZERO | Z-PAGE 
MNEMONIC | DESCRIPTION Rl RO} IMPLIED JIMMED| PAGE |X 
ADC ADD WITH CARRY 6 | 75 
AND LOGICAL AND 29 | 25 | 35 
ASL ARITHMETIC SHIFT LEFT 0 | 16 
BCC BRANCH ON CARRY CLEAR 
BCS BRANCH ON CARRY SET 
BEQ BRANCH IF EQUAL TO ZERO 
BIT COMPARE BITS WITH 24 
ACCUMULATOR 
BMI BRANCH ON MINUS 
BNE BRANCH ON NOT EQUAL TO ZERO 
BPL BRANCH ON PLUS 
BRK BREAK S 00 
BVC BRANCH ON OVERFLOW CLEAR 
BVS BRANCH ON OVERFLOW SET 
CLC CLEAR CARRY 18 
CLD CLEAR DECIMAL D8 
CLI CLEAR INTERRUPT MASK 58 
CLV CLEAR OVERFLOW FLAG BB 
CMP COMPARE TO ACCUMULATOR co | cs | ps 
CPx COMPARE TO REG-X Eo | E4 
CPY COMPARE TO REG-Y co | c4 
DEC DECREMENT MEMORY co | D6 
DEX DECREMENT REG-X X CA 
DEY DECREMENT REG-Y Y 88 
EOR EXCLUSIVEOR ACCUMULATOR | A 49 | 45 | 55 
INC INCREMENT MEMORY E6 | F6 
| INX | INCREMENT REG-X X EB 
INY INCREMENT REG-Y Y c8 
JMP JUMP TO ADDRESS PC 
[a ad Soe ee i 
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Z-PAGE | INDIRECT } INDIRECT ee ABSOLUTE | ABSOLUTE | ABSOLUTE 
Y X Y ADDRESS | ADDRESS INDIRECT | N 11 |2z C 
61 71 x| x 
21 31 
90 
Bo 
FO 
M7|M6 x 
30 
DO 
10 
50 
70 
= ae 
Cl DI CD DD D9 x x 
EC x x 
CC x x 
CE DE x x 
x x 
x x 
41 51 4D 5D 59 x x 
EE FE x x 
x x 
x x 
4C 6C 
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| MNEMONIC | DESCRIPTION 




















JSR JUMP TO SUBROUTINE 
LDA LOAD ACCUMULATOR 
LDX LOAD REG-X 
LDY LOAD REG-Y 
LSR LOGICAL SHIFT RIGHT 
NO OPERATION 
INCLUSIVE OR ACCUMULATOR 
PUSH A ONTO STACK 
PUSH P-REGISTER ONTO 
STACK 
PULL ACCUMULATOR FROM 
STACK 
PULL P-REGISTER FROM 
STACK 
ROTATE LEFT ONE BIT 
ROTATE RIGHT ONE BIT 
RETURN FROM INTERRUPT 
RETURN FROM SUBROUTINE 
SBC SUBTRACT WITH CARRY 
SEC SET CARRY 
SED SET DECIMAL 
SEI SET INTERRUPT MASK 
(DISABLE) 
STA STORE ACCUMULATOR 
STX STORE REG-X 
STY STORE REG-Y 
TAX TRANSFER A TO X 
TAY TRANSFER A TO Y 
TSX TRANSFER S TO X 
TXA TRANSFER X TO A 
TXS TRANSFER X TO $ 
TYA TRANSFER Y TO A 


Rl 
PC/S 
A 


>popix <x = zz 
SKM KID PP SK KIS 


ZERO 


Z-PAGE 





R2 || IMPLIED | IMMED | PAGE X 
A9 | AS BS 
A2 | A6 
AQ | A4 B4 
4A(A) 46 56 
EA 
09 0S 15 
Aj 48 
P| 08 
68 











AA 
A8 
BA 
8A 
9A 
98 











E9 














66 


ES 


85 
86 
84 














76 





F5 


95 





94 
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ABSOLUTE | ABSOLUTE P-REGISTER 


TPAGE | INDIRECT | INDIRECT | RELATIVE | ABSOLUTE 
y X | ADDRESS | ADDRESS y—_[uvomrecr |v] v [|B [>] 1 ]z 


| | . | 


El Fl ED FD F9 







2 | 








x -* XxX &X 


w 
= 
Ss xX XK xX 



































81 91 8D 9D 99 


96 8E 
8C 

x 

x 

x 

















x |x XX X 

















Appendix 9 
ROM Routines and 
Addresses 


These are routines within the Oric ROM which can be CALLed from BASIC to 
produce the effects described. They can also be used directly from USeR 
routines in machine code (see Chapter 10). 

For most of these routines it will be sufficient to load the appropriate 6502 
registers before JSRing to the routine in question. However, for the graphics 
and sound routines, parameters must be passed by storing them in the area 
of memory starting at #2E0. Parameters are represented as 16 bit 2’s 
complement. The parameter area address will be referred to as PARAMS. On 
return, PARAMS + @is set to 1 if an error occurred. CALLing routines should 
set PARAMS + @ to @ before CALLing. All addresses are given in hexadecimal, 
the first referring to the V1.1 and the second to the V1.0. We would like to 
thank Oric Products for kindly supplying us with this information. 


VDU address: F77C 
F73C 


Prints the character on the screen and moves cursor to the right. 


Call parameters: X = character to print 
Return parameters: none 
Registers corrupted: none 


See Appendix 3 for Control Codes 


STOUT address: F865 
F82C 


Prints a message on the status line on the screen (locations 48000 to 48039). 


Call parameters: A= message address (low) 

Y = message address (high) 

X = horizontal position to start 
Return parameters: X=next position 


Message is terminated with a zero. 
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GTORKB address: EB78 
E905 


Characters are returned at the current repeat rate (cannot be varied on 
V1.0). The V1.1 repeat rate is determined by locations 216 and 217 (hex). 
Location 216 is the delay before a key starts repeating in units of 30ms. 
Location 217 is the time between successive characters when the keyboard 
is repeating in units of 30ms. To obtain characters at maximum rate set 
locations 216 and 217 to one. 


Call parameters: none 

Return parameters: A = ASCII character 
signflag + ve no character 
signflag — ve valid character 

Registers corrupted: none 


PRTCHR address: F5C1 
Prints a character to the printer. re 
Call parameters: A = ASCII character 
Registers corrupted: A 


OUTLED address: E75A 
E6BA 


Outputs leader (9 characters of ASCII Code 16, SYN) to tape at current 
speed. 


Call parameters: none 
Return parameters: none 
Registers corrupted: A,X,Y 


Note: For all cassette routines the current speed is governed by location 
215. @ is fast, greater than 0 is slow. 


GETSYN address: E735 
oe : E696 
Reads bytes from tape until in sync with tape. 
Call parameters: none 
Return parameters: none 
Registers corrupted: A,X 
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OUTBYT address: E65E 
E5C6 
Outputs a byte to the tape at current speed. 
Call parameters: A = output character 
Return parameter: none 
Register corrupted: A 


RDBYTE address: E6C9 
E630 
Reads a byte from the cassette at current speed. 
Call parameters: none 
Return parameters: A = input character 
Registers corrupted: A 


CURSET address: F0C8 


F02D 
Call parameters: PARAMS + 1: x value 


PARAMS + 3: y value 

PARAMS + 5: fb value 
Return parameters: PARAMS set to 1 if out of range error 
Registers corrupted: A,X,Y 


CURMOV address: FOFD 


F064 
Call parameters: = PARAMS + 1: x value 


PARAMS + 3: y value 
PARAMS + 5: fb value 
Return parameters: PARAMS set to 1 if out of range error 


DRAW address: F110 


F079 
Call parameters: |= PARAMS + 1: x value 


PARAMS + 3: y value 
PARAMS + 5: fb value 
Return parameters: PARAMS set to 1 if out of range error 





CHAR address: F12D 
FO@A5 


Call parameters: = PARAMS + 1: ASCII character (in LSB) 


PARAMS + 3: chatacter set (@ standard, 1 alternate) 


PARAMS + 5: fb value 
Return parameters: PARAMS set to 1 if out of range error 
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CIRCLE address: F37F 
. F2E5 
Call parameters: PARAMS + 1: radius 
PARAMS + 3: fb value 
Return parameters: PARAMS set to 1 if out of range error 
PATRN (PATTERN) address: F11D 
F093 


Call parameters: 
Return parameters: 


POINT 


Call parameters: 


Return parameters: 


FILL 


Call parameters: 


Return parameters: 


PAPER 


Call parameters: 
Return parameters: 


INK 


Call parameters: 
Return parameters: 


PING 


PARAMS + 1: pattern value 
PARAMS set to | if out of range error 


address: F268 


F041 
PARAMS + 1: x value 


PARAMS + 3: y value 

PARAMS set to | if out of range error 

PARAMS + 1: @=background 
1=foreground 


address: F204 


FIE5 
PARAMS + 1: no. of rows 


PARAMS + 3: no. of cells 
PARAMS + 5: value 
PARAMS set to 1 if out of range error 


address: F204 


F17F 
PARAMS + 1: colour 


PARAMS set to 1 if out of range error 


address: F210 


F18B 
PARAMS + 1: colour 


PARAMS set to 1 if out of range error 


address: FA9F 


Accessed by address. PAS 


269 


NB: All sound routines use the same parameter passing routines as the 


graphic routines. 
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SHOOT address: FAB5 
Accessed by address. Rez? 
EXPLD address: FACB 
FAAE 
Accessed by address. 
ZAP address: FAE1 
Accessed by address. vata 
KBBEEP address: FB14 
Produces keyboard click. EAR? 
Accessed by address. 
CONTBP address: FB2A 
Gives CTRL key click. PEGS 
Accessed by address. 
SOUND address: FB40 
FB23 
Call parameters: PARAMS + 1: channel 
PARAMS + 3: period 
PARAMS + 5: volume 
Return parameters: PARAMS set to 1 if out of range error 
MUSIC address: FC18 
Call parameters: PARAMS + 1: channel (1-3) FBEB 
PARAMS + 3: octave (0-7) 
PARAMS + 5: note (1—12) 
PARAMS + 7: volume (@-15) 
Return paramaters: PARAMS set to 1 if out of range error 
PLAY address: FBD0 
FBB3 


Call parameters: PARAMS + 1: tone channel 
PARAMS + 3: noise channel 
PARAMS + 5: envelope mode 
PARAMS + 7: envelope period 
Return parameters: PARAMS set to 1 if out of range error 
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W8s912 address: F590 
F582 


Writes the data in X to the 8912 register specified in A. The routine ensures 
that the keyboard port is kept enabled. Register OE should not be 
addressed, as this is the external port used by the keyboard. 


Call parameters: A=8912 register no. 
X=output data 

Return parameters: none 

Registers corrupted: A,X,Y 


Oric RAM locations page zero/page two 


PAGE 0 

LINWID #0031 Line width for terminal. (V1.0 printer 
width) 

TXTTAB #009A-#009B Start of BASIC text 

VARTAB #009C-#009D Start of variables 

ARYTAB #009E-#009F Start of arrays 

STREND #00A0—-#00A1 End of variables, lo-men 

MEMSIZ #00A6—#00A7 Top of FRE memory, HIMEM 

CHRGET #0Q0E2-#00E7 Code to increment TXTPTR 


CHRGOT #00E8 LDA instruction 
TXTPTR #00E9-#00EA Pointer to current character being 
interpreted 


SKPSPC #00EB-#00EE If space then CHRGET 
QNUM #00EF—#00F8 Set carry if 0-9 and zero flag if CHR$(@) 


CHRRTS #00F9 Return instruction 

PAGE 2 

KEYAD #0208 Key address if key press 

KBSTAT #0209 #A4=left shift, /A7=right 

CAPLCK  #020C #80=CAPS 

PAT #0213 PATTERN register for 
CIRCLE/DRAW 

CURX #0219 Graphics cursor X and 

CURY #021A Y coordinates 

GRA #021F 1=HIRES,0=TEXT/LORES 

SXTNK #0220 1=16K memory, else 48K 

XVDU #238 jump to VDU routine (VDU) 

XGETKY #23B jump to key routine (GTORKB) 

XPRTCH #23E jump to printer output routine 


(PRTCHR) 
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XSTOUT 


INTFS 
NMIJP 
INTSL 


TSPEED 
KBDLY 
KBRPT 
PWIDTH 
VWIDTH 
MODE 0 


BGND 
FGND 
CURON 
CUR INV 
TIMER1 
TIMER2 
TIMER3 
VDUL2 
VDLU1 
VDUCH 


NOROWS 
ICHAR 
PARAMS 


#241 


#244 
#247 
#24A 


#24D 
#24E 
#24F 
#256 
#257 
#26A 


#026B 

#026C 

#0270 

#0271 
#0272-#0273 
#0274-#0275 
#0276-#0277 
#0278-#0279 
#027A—#027B 
#027C-#027D 


#027E 
#02DF 
#02E0 


jump to status line output routine 
(STOUT) 

jump to interrupt handler 

jump to NMI routine 

return from interrupt handler 
(normally RTI but may be patched to a 
jump) 

0 — fast c>@ slow 

delay for keyboard auto repeat 

repeat rate for keyboard repeat 

printer width (normally set to 80) 
screen width (normally set to 40) 

bits in this byte define the current state 
of various functions 

BIT FUNCTION 


7d Spare 

6 Spare 

5 1=Protect columns @ and 1 on 
screen 

4 1=Last character printed was 
ESC 

3 1=Key click off 

2 Spare 

1 1=VDU on 

0 1=Cursor on 


Background (PAPER) colour +16 
Foreground (INK) colour 

Cursor on/off flag 

Cursor invert flag 

Keyboard | Three sixteen-bit timers, 
Cursor decrementing every 1/100th 
Spare sec. Continue past 0 
Addr. of second line on screen 

Addr. of first line on screen 

No. of char’s to scroll normally 

26 lines*40 

No. of rows on screen 

Current key pressed 

Parameter block transfer buffer for 
graphics and sound 


Appendix 10 
Input/Output Circuitry 


The electronics enthusiast wishing to interface his Oric to control or 
monitor external events might be new to computing, and it is hoped that the 
notes given here will enable him or her to experiment in applying some 
custom made silicon chips in example circuits, and explain how to uniquely 
specify memory locations for external Input/Output purposes. 


Addressing and decoding memory locations 


Figure 10.1 shows a 6502 CPU, the Central Processor Unit which is the 
‘brains’ of the Oric microcomputer. It has 8 data lines (D@ to D7) and 16 
address lines, AO to Al5. Referring to figure 10.2, we can see that there are 
65536 ways of arranging the 16 address lines in either a low state (@) or high 
state (1). These states are actually voltage levels, @V for low and +5V for 
high. Hence, the 6502 CPU has the capability of talking to 65536 memory 
locations, i.e. a64K memory microcomputer. 

These address lines are configured to either ROM chips, RAM chips or 
other memory mapped devices (see the memory map, Appendix 5). The 
eight data-lines are used to pass-8-bit instructions or raw data between the 
cpu and the ROM/RAM memory and peripherals. Referring to figure 10.3, we 
can see that there are 255 ways of arranging the 8-bit data lines. How, then, 
can we use these address lines to decode memory locations? Chapter 11 tells 
us that we can use either the ‘spare’ area of memory or Page 3 memory for 
suitable locations. The spare area is between #BFE@ and #BFFF. 

Looking at the conversion table given in Appendix 6, we can convert 
straight from hexadecimal to decimal. From left to right: 


# B F E 0 
45056 + 3840 + 224 + 0 = location 49120 


# B F F F 
45056 + 3840 + 240 + 15 = location 49151 


We could of course use the Oric for these conversions, with a simple PRINT 
#BFE0, or whatever, but we’re concerned here with the values of each 4-bit 
sequence (called a nybble) coded by each hex symbol. We can see that we 
have 31 memory locations available to us for use in this area. 
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Similarly, referring to the memory map again, we see that Page 3 of the 
memory occupies locations #0300 to #03FF (768 to 1023 decimal). How 
can these decimal and hexadecimal numbers be used to provide us with 
information about the state of the address lines A@ to Al15? Take location 
#BFFF as an example. If we refer to figure 10.4, which gives the bit 
patterns for each hex nybble, we can see that hex B=1011 binary, and 
F=1111 binary, so that the bit pattern, or pattern of states (@ or 1) on the 
address lines will be: 


hex # B F F F 
bit pattern 1011 1111 #132111 #2111 1 
addressline Al5... eign ooh te fade ... Ad 


Every time the instruction: 
POKE #BFFF,xxx 

or: 
POKE 49120,xxx 


is used, the state of the address lines will be as shown, giving all address 
lines set high (1) except Al4, which is low (0). 

Similarly, for an example Page 3 location POKE #03FF,xxx will give the 
following bit pattern: 


hex # 0 3 F FE 
bit pattern 0000 0011 1111 #111 «1 
address line AIS... Sited as ss toh Soon ... Ad 


Lines 10, 11, 12, 13, 14, 15 are all low in this case. 

The different state of these lines for each address means that each 
memory location can be uniquely decoded and used to provide an enable 
(low) signal to activate an input chip, whenever a certain memory location is 
specified by the POKE statement. 


Decoders and decoding 


There are many ways of providing an enable (low) signal, and we shall 
describe and illustrate examples to illustrate general principles. Basically, 
most input and output chips are enabled (rendered active) by a low (@) 
signal, and what is necessary is that this low signal, applied to an output or 
input chip, should occur only when the correct address is on the address 
lines. 
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This CE chip-enable signal can be used to activate a chip such as the 
74LS374 6-bit output latch shown in figure 10.6. The CE signal can activate 
the same chip (or others such as the 74LS244 and 74LS245) during an 
input, except that this time input data is latched on to the data-bus of the 
Oric only when the internal 6522 in the Oric has been disabled by pulling 7/0 
CONTROL low at the same time, so that clashes with external and internal 
data do not occur. The I/O CONTROL chip is activated when in Page 3 as 
explained in Chapter 11. If operating in the ‘spare’ memory area of #BFEO 
to #BFFF, the MAP, ROMDIS and 7/0 CONTROL must be simultaneously 
disabled. 

Figure 10.5 shows a possible decoding method for the top of Page 3 using 
a 74LS30 type 8 line decoder. 10 is pulled high whenever page three is 
accessed so we can use this to save ourselves the bother of decoding the top 
eight bits of the address. 

All connections are made via the Oric’s 34-way expansion-bus using an 
IDC female connector, obtainable from RS components, for example. All 
the chips necessary for construction can also be obtained from RS or other 
similar suppliers. 

Figure 10.6 shows a circuit using the 6522 VIA, which provides a very 
flexible way of obtaining input/output to external devices (which is why the 
Oric itself uses one!). See Chapter 11. The VIA has 16 registers, and these 
can be mapped on to the Oric memory by using, for example, AO, Al, A2 
and A3, since there are 16 ways of arranging these lines in either a 1 or 0 
state. The significant registers are ORB, ORA, DDRA and DDRB. The VIA is 
programmed for input by inputting a control word to DpRA for port A and 
DDRB for port B. If we memory-map DDRA on to #03E3 as shown, then 
POKE#03E3,255 will make port A an output. POKE#03E1,XX will then output 
data to port A. Similarly, POKE#03E3,0 will make port A an input, and PRINT 
PEEK(#03E]1) will read the input data. 

Decoding is easier, since only 12 address lines need to be decoded and 
4x 17154, 4-16 line decoders will produce 4 unique output lines which, 
when gated, will produce a chip-enable signal (CE) for the VIA as well as the 
necessary disable signals (depending on which area of memory is being 
used). 

When using the printer interface for input/output, no lines need to be 
pulled low, so /0 CONTROL, MAP and ROMDIS are left alone. A 74LS235 
transceiver chip is suitable since it can be used for both input and output 
along the same data lines, but power is still only obtainable from the 34-way 
connector unless an external supply is used. 
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Fig. 10.1: The 6502 Micro-Processor 


RESET 
92 (OUT) 
O 


S 
6 (IN) 
NC 





6502 Micro- 
Processor 






D3| DATA 
D4/ -BUS 


ADDRESS BUS 


*these control lines are available at the expansion bus, and can be 
utilized for user designed peripherals. 


D@-—D7 : DATA-BUS 
A@— AIS: ADDRESS-BUS 
*Riw  : READ/WRITE 
“IRQ: INTERRUPT REQUEST, ACTIVE IF. 
THE “I” REGISTER IS AT “O” & IRQ IS PULLED LOW. 
*RESET -: INITIALIZES THE 6502 FROM A 
POWER DOWN CONDITION. 
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BIT LEVEL POWER DECIMAL 


call 


Eaca 


ADDRESS LINES 
SPECIFYING MEMORY 


> 


> |F| 





Ea 








ce 
Ral 
a 
xe 
el 
Ee 
ia 
alee 
ES 
Ea 
Ea 
ou 


Ais 
TOTAL=65,535+ | =65,536 MEMORY LOCATIONS 


ALL LINES AT 2 ; MEMORY 
LOCATION 0690 
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Appendix 12 
BASIC Reserved 
Words and Tokens 


Here in a convenient form are presented the BASIC keywords and the tokens 
which are used to store Oric BASIC keywords in a single byte of memory. 
These are reserved words and may not be used in variable names. 


ABS 216 FOR 141 ON 180 
AND 209 FRE 218 OR 210 
ASC 236 GET 190 PAPER 177 
ATN 229 GO 247 PATTERN 174 
AUTO 199 GOSUB 155 PEEK 230 
CALL 191 GOTO 151 PI 238 
CHAR 11 GRAB 159 PING 166 
CHR$ 237 HEX$ 220 PLAY 169 
CIRCLE 173 HIMEM 158 PLOT 135 
CLEAR 189 HIRES 162 POINT 243 
CLOAD 182 IF 153 POKE 185 
CLS 148 INK 178 POP 134 
CONT 187 INPUT 146 POS 219 
COS 226 INT 215 PRINT 186 
CSAVE 183 *INVERSE 130 PULL 136 
CURMOV 171 KEY$ 241 READ 149 
CURSET 170 LEFT$ 244 RECALL 131 
DATA 145 LEN 233 RELEASE 160 
DEEK 231 LET 150 REM 157 
DEF 184 LIST 188 REPEAT 139 
DIM 147 LLIST 142 RESTORE 154 
DOKE 138 LN 224 RETURN 156 
DRAW 172 LOG 232 RIGHT$ 245 
EDIT 129 LORES 137 RND 223 
ELSE 200 LPRINT 143 RUN 152 
END 128 MID$ 146 SCRN 242 
EXP 225 MUSIC 168 SGN 214 
EXPLODE 164 NEW 193 SHOOT 163 
FALSE 240 NEXT 144 SIN 227 
FILL 175 *NORMAL 131 SOUND 167 


FN 196 NOT 202 SPC 197 
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SQR 222 TAN 228 TRUE 
STEP 203 TEXT 161 UNTIL 
STOP 179 THEN 201 USR 
STORE 130 TO 195 VAL 
STR$ 334 TROFF 133 WAIT 
TAB 194 TRON 132 ZAP 
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239 
140 
217 
235 
181 
165 


*These reserved words exist in the V1.0 ROM, but are not BASIC 


instructions. 


Index 


@ 72,75 
ABS function 29, 36, 108 
Addressing 54, 121 
machine code, 196, 201, 214, 273 
Algorithm 17 
AND 44, 109 
Animation 73, 91, 190 
Apostrophe 18 
Argument, of function 25 
Arithmetic operators 9, 27, 57 
Arrays 33, 41, 59, 60, 97, 123 
storing and recalling 66, 180 
ASC 25, 110 
ASCII codes 25, 40, 76, 78, 86, 228 
ATN 29, 111 
Attributes 72, 74, 78, 83 
ASCII codes 230 
Escape sequences 74, 78, 232 
AUTO 64, 119 


BASIC 
interpreter 190 
language 6 
program storage 53, 57ff, 65 
reserved words 11, 16, 288 
tokens 57 
Baud rates 63, 117 
BCD (Binary Coded Decimal) Notation 195 
Binary 
notation 20, 50, 78, 82, 84, 191 
conversion tables 244 
Bits 50, 78, 84, 192 
Bubble sort 41 
Bytes 50, 54, 59, 192 


CALL 112, 220 
CAPS mode 12, 13 
Cassette recorder 
choice of 5, 61 
connecting up 5, 62, 63, 65 
Cassette storage 61 ff 
auto-run programs 64, 119 


joining programs 65, 116 
loading programs 63, 115 
saving programs 62, 119 
storing/recalling arrays 66, 180 
storing/recalling memory blocks 64, 119 
verifying a saved program 65, 116 
Cassettes 
care of 67 
choice of 62 
CHAR 85, 112 
Character 
alternate set 54, 78 
codes 25, 57, 59, 228 
comparison 40 
double height 75 
flashing 75 
graphics 86 
non-PRINTing 25 
on HIRES screen 86 
sets in memory 53, 87 
CHR$ 26, 74, 113 
Chromatic scale 94 
CIRCLE 82, 114 
CLEAR 290, 59, 114 
CLOAD 62, 115 
CLS 12, 117 
Colon 19 
Colour 71 
attributes 72, 74 
escape sequences 75, 232 
inverse colours 76 
memory locations 84 
TV tuning 4 
Comma 70 
Commands 7 
Complements 37 
Concatenation 28 
Conditions 36, 40, 44, 46 
CONT 117 
Control characters 12, 71, 73, 228 
COS 29, 118 
CSAVE 62, 119 
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CTRL key 12 
CURMOV 81, 119 
CURSET 89, 120 
Cursor 4, 12 
control keys 7, 12 
graphics 80 


DATA 32, 96, 121, 165 

Decimal notation 50, 191 
conversion tables 244 

Decoding 274 

DEEK function 54, 58, 60, 121 

DEF 122 

DEF FN 29, 122 

DEF USR 122 

DELete key 7 

DIM 33, 123 

Disc Drives 5 

Documentation 18 

DOKE 54, 58, 125 

Dollar sign 20 

Double size characters 75 

DRAW 89, 125 


EDIT 14, 126 

Editing programs 12 

ELSE 37, 139 

END 127 

Envelope period 104 

Error messages 235 

ESCape sequences 74, 77, 78 
Exclamation mark (Shriek) 220 
EXP 29, 127 

Expansion port 5 
EXPLODE 93, 128 
Exponential notation 23, 59 


FALSE 39, 44, 128 
FILL 84, 129 
Flags 41, 44 
Flashing characters 75 
FN 29, 130 
Foreground/background parameter 80 
FOR . . . NEXT loops 31, 131, 167 
FRE 132 
Functions 

numeric 29 

string 25 


GET 21, 133 
GOSUB 47, 134, 151 
GOTO 18, 43, 46, 151 
GRAB 53, 136 


Graphics 69ff 
characters 86 
high resolution 80 
low resolution 78 
medium resolution 79 
Oric MCP-490 printer 252 
text 69 


HEX 27, 137 

Hexadecimal notation 24, 27, 137, 192 
conversion tables 245 

High resolution graphics 80 

HIMEM 122, 137 

HIRES mode 53, 80, 138 
screen grid 239 


IF... THEN .. . (ELSE) 37, 139 
ILLEGAL QUANTITY ERROR 27 
Indexing 198 
INK 71, 140 
INPUT 17, 26, 141 
Input/Output 
circuitry 273 
connections 284 
memory locations 223 
INT 27, 29, 142 
Interrupts 148, 213 


Join facility 65, 115 


KEY$ 142 

Keyboard 7 

Keyclick toggle 12 
Keywords 11, 108ff, 288 


Languages 7 
LEFTS$ 28, 143 
LEN 28, 144 
LET 10, 11, 144 
Line numbers 13, 15, 18, 57, 134, 135, 171 
LIST 14, 145 
LLIST 146 
LN 29, 127, 146 
LOG 29, 146 
Logical operators 44, 109, 150, 152 
Logical values 39 
Loops 18, 31, 43 
counter 38 
FOR... NEXT 31, 131 
nested 34, 43 
REPEAT . . . UNTIL 36, 38, 167 
LORES 0 mode 76, 147 
screen grid 238 


LORES | mode 54, 78, 147 
alternate character set 54, 78 
screen grid 238 

Low resolution graphics 78 

LPRINT 58, 148 


Machine code 190ff 
addressing 122, 196, 201, 214 
conventions 214 
instructions 197, 202, 261 
number systems 191 
registers 199 
ROM routines & addresses 267 
storage 137 
Mantissa 24, 59 
Medium resolution graphics 79 
Memory 4, 5Off 
area available for programs 132 
characters in 53, 86 
Input/output areas 223 
locations 50, 52, 83 
map 240 
pages 53 
ROM routines & addresses 266 
screen 53, 64, 77 
variables storage 59 
MID$ 28, 148 
Monitors 4 
MUSIC 94, 149 
envelopes 103 


Negative numbers 24, 36, 194 
NEW 150 
NEXT 31, 35, 131 
Noise channels 100, 105 
NOT 44, 150 
Numbers 9, 10, 23, 36 
binary 24, 50 
Binary Coded Decimal (BCD) 195 
decimal 191 
hexadecimal 24, 27, 137, 192 
integer 24, 54 
negative 24, 36 
range 23, 27 
real 23,59 
Numeric functions 29 


ON 46, 151 
Operands 197 
Operation codes 197 
6502 Op codes table 261 
Operators 
arithmetic 9, 27 


Index 293 


conditional 38 
order of priorities 10, 27 
string 28 
OR 44, 152 
Oric-1 Versions V1.0/V1.1, 1, 3, 9, 10, 14, 
54, 63, 65, 70, 72, 76, 116, 130, 147, 148, 
172, 182, 183 
Oric MCP-49 printer 5, 252 
OUT OF DATA ERROR 165 
OUT OF MEMORY ERROR 35, 43 
Output, see Input/Output 


Pages 53, 198 
PAPER 71, 153 
Parsing 190 
PATTERN 82, 154 
PEEK 54, 154 
Percent sign 24 
PI, 7, constant 29, 155 
PING 22, 93, 155 
PLAY 96, 100, 156 
PLOT 76, 158 
POINT 83, 159 
POKE 54, 78, 84, 159 
POP 160 
POS 161 
PRINT @ 72, 162 
PRINT 9, 162 

abbreviation 9 

text formatting 25, 69, 178, 183 
Printer 5, 146, 148, 152 
Priority 10, 27 
Prompt string 17 
PULL 44, 163 


RAM 382, 87 
READ 32, 165 
RECALL 66, 166 
REDIM’D ARRAY ERROR 123 
REDO FROM START message 17 
Registers 198, 199 
Relative co-ordinates 80 
RELEASE 54 
REM 13 
abbreviation 18 
REPEAT . . . UNTIL 36, 38, 44, 163, 167 
Reserved words 11, 16 
Reset button 8, 25 
RESTORE 121, 165, 168 
Result, of function 25 
RETURN 47, 168 
RIGHTS$ 28, 169 
RND 29, 170 
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ROM 5352 routines and addresses 266 
Rounding 24, 27 
RUN 16, 20, 171 


Scientific notation, see Exponential 
notation 
Screen 
attributes 72, 74 
characters 85 
colour 71 
co-ordinates 76, 77, 79, 80, 83 
display modes 53, 69ff 
grids 238 
memory locations 53, 64, 77, 84 
saving on tape 65, 119 
SCRN 77, 172 
Semi-colon 70 
SGN function 29, 173 
SHIFT key 7 
SHOOT 93, 174 
SIN 29, 174 
Sorting 40 
SOUND 105, 177 
Sound 
channels 96, 105 
envelopes 100, 103 
SPACE key 7 
SPC 178 
SQR 29, 179 
Stack 35, 47, 167 
Status line 12, 77 
STEP 13, 131 
STOP 179 
STORE 66, 180 
String 9 
numeric 26 
slicing 28 
variable 20, 59, 125, 132 
STR$ 26, 76, 181 
Subroutines 48, 52, 134, 160 
SYNTAX ERROR 7, 11, 16 


TAB 70, 183 
TAN 29, 184 
Ten’s complement 195 
TEXT mode 53, 69, 185 
screen grid 238 
Text formatting 25, 69, 178, 183 
THEN 37, 139 
TO 31, 131 
Toggles 12,71, 73,75 
Tokens 57, 58, 288 
Tone channels 100, 105 
TROFF 185 
TRON 186 
TRUE 339, 44, 186 
TV 3,81 
tuning 4 
Two’s complement 194 


UNTIL 187 
USR 122, 187 


VAL 26, 188 
Variables 
assigning values 10, 17, 20 
dummy 29, 44 
floating point 59 
garbage collection 132 
integer 24, 59 
loop 32, 35 
names 11, 16, 20, 30 
numeric 10, 23, 40 
storage 59 
string 20, 59, 60 
Verify facility 65, 116 


WAIT 19, 189 
with MUSIC 97, 99 


ZAP 93, 189 
Zero page 53, 198 
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The Complete Reference 
Companion for all Oric users 


The Companion introduces the 
ORIC’s BASIC language in an easy-to- 
follow fashion, giving you a graduated 
introduction to programming backed up 
with advanced BASIC techniques and an 
introduction to machine code 
programming. 


Program storage, printer use and 
programming techniques are all covered, 
with extensive chapters that offer 
command of the superb high-resolution 
graphics, colour and sound facilities, to 
produce the all-singing, all-dancing 
programs the ORIC is capable of 
handling. 


Full coverage of all commands and 
instructions is provided in a summary of 
ORIC BASIC arranged for easy 
reference, with each instruction explained 
and illustrated with example programs. 


This is the first book which can be used 


with the original Version 1.0 ROM and 
the revised Version 1.1 ROM. 
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